|
发表于 2008-1-14 09:51:04
|
显示全部楼层
紧急求助!关于数据集插入
紧急求助!关于数据集插入.我想实现这样一个功能,在选择会议参加者的时候,弹出一个人员多选窗体,在人员多选窗体上选择多个人员后,单击上面的确定按钮后将所选择的人员一个人一条记录(从表的一行)的插入调用窗体上的从表中(从表用的是文档表格的形式).但是现在的单击被调用的窗体上的确定按钮时不能在从表上添加人员.
人员多选窗体上的确定按钮代码如下:
procedure TXZCJHYRY.BitBtn3Click(Sender: TObject);
var
zct:THYXXGLCT;
i,j:integer;
begin
zct:=THYXXGLCT.Create(self.Context);
zct.ShowModal;
zct.DataSetBroker3.DataSet.Open;
zct.DataSetBroker3.DataSet.First;
for i := 0 to listbox1.Items.Count - 1 do
begin
zct.ListBox1.Items.Add(sysutils.Trim(listbox2.Items.ToString));
zct.ListBox1.Items.Add(listbox1.Items.ToString);
zct.DataSetBroker3.DataSet.Insert;
zct.DataSetBroker3.DataSet.FieldByName('Participants').AsString:=sysutils.Trim(listbox2.Items.ToString);
zct.DataSetBroker3.DataSet.Post;
end;
zct.Free;
end;
|
|