function Форма_Load( form, event )
	local base_voc=CroApp.GetBank():GetVocabulary() -- получаем словари
	local voc=base_voc:GetBase("AD"):GetRecordSet() -- получаем конкретный словарь
	Me.combobox1:Clear() -- на всякий случай очищаем наш Control
	if voc then	-- проверка существования
		for rec in voc.Records do -- в цикле проходим по всем записяк
			local vol=rec:GetValue("Понятие") -- получаем непосредственно значение
			if vol ~= "" then -- почему-то всегда появляется первым элементом пустая строка
				Me.combobox1:Add(vol) -- добавляем значение в список нашего ComboBox
			end
		end
	end
end
 

function button1_Click( control, event )
	local txt=Me.textbox1.Text
	local txt=txt..Me.combobox1.SelectedItem..";"
	Me.textbox1.Text=txt
end
 

function button2_Click( control, event )
        local base=CroApp.GetBank():GetBase("имя_БД")
        local newRec=Record()
        if newRec then
              newRec:SetValue(2, Me.text2.Text)
              newRec:SetValue(3, Me.text2.Text)
              newRec:SetValue(4, Me.text2.Text)
              local voc_1=string.split(Me.textbox1.Text, ";")
              local voc_1#=table.remove(voc_1)
              local voc_2=string.split(Me.textbox2.Text, ";")
              local voc_2#=table.remove(voc_2)
              NewRec:SetValue(5, voc_1)
              NewRec:SetValue(6, voc_2)
              base:AddRecord(newRec)
        end
end
 

function button1_Click( control, event )
	local txt=Me.textbox1.Text
	local txt=txt..Me.combobox1.SelectedItem..";"
	Me.textbox1.Text=txt
end 

t={} -- таблица выбранных значений
function button1_Click( control, event )
table.insert(t,Me.combobox1.SelectedItem)
	Me.textbox1.Text=table.concat(t,";")
end 

function button1_Click( control, event ) -- кнопка создания записи
currec=CroApp:GetBank():GetBase("ЛЦ"):AddRecord()
currec:SetValue(2,"новое лицо "..currec.SN)
currec:Update()
end

function button2_Click( control, event )-- кнопка редактирования поля Гражданство
currec:EditValue ("Гражданство")
currec:Update()
end