A
alexstudent
Добрый день! Нужен совет. Ставлю галку в свойствах поля (ListDivisions) Allow keyword synonyms. А отображает всё ....|...., хотя по идее должно быть все что до черты! Вот код добавления значения:
.....
Set col = ws.PickListCollection(3, True,db.Server, db.FilePath,"PickDivision", "Подразделение", "Укажите подразделение")
Set thisDoc = ws.CurrentDocument.Document
Set uidoc = ws.CurrentDocument
Set tmpDoc = col.GetFirstDocument
Set item = thisDoc.GetFirstItem( "ListDivisions" )
While Not tmpDoc Is Nothing
Call item.AppendToTextList(tmpDoc.FullTitle(0)+"|"+tmpDoc.BudjetBID(0))
Set tmpDoc = col.GetNextDocument(tmpDoc)
Wend
.....
.....
Set col = ws.PickListCollection(3, True,db.Server, db.FilePath,"PickDivision", "Подразделение", "Укажите подразделение")
Set thisDoc = ws.CurrentDocument.Document
Set uidoc = ws.CurrentDocument
Set tmpDoc = col.GetFirstDocument
Set item = thisDoc.GetFirstItem( "ListDivisions" )
While Not tmpDoc Is Nothing
Call item.AppendToTextList(tmpDoc.FullTitle(0)+"|"+tmpDoc.BudjetBID(0))
Set tmpDoc = col.GetNextDocument(tmpDoc)
Wend
.....