H
hurryman
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.CheckListBox2ClickCheck(Sender: TObject);//这个方法和下面的不一样
var i,temp:integer;
field:tstrings;
begin
field:=tstringlist.Create ;
try
if checklistbox1.Checked then
begin
temp:=i;
session.GetFieldNames(combobox1.Text,checklistbox2.Items.Strings[temp],field);
checklistbox1.Items :=field;
end;
finally
field.Free ;
end;
end;
1，我用到两个checklistbox，第一个用来显示所有表的名称，当我点击选中checklistbox2里的CHCKBOX
后即选种一个表后，要求checklisbox1里显示出所有该表的字段名称，我又可以自己在checklistbox1
里来选则其中一些字段。但我现在为什么始终checklistbox1里没有数据显示？
2，如何得到我选中checklistbox2里的某个CHCKBOX的名称呢？如我当我点击选中checklistbox2里的CHCKBOX
后即选种一个表后，要得到该表的名称；如我当我点击选中checklistbox1里的CHCKBOX后即选多个字段后，
得到这些字段的名称，
procedure TForm1.CheckListBox2Click(Sender: TObject);//这个方法和上面的不一样
if checklistbox1.checked then
begin
temp:=i;
form1.caption:=checklistbox2.Items.Strings[temp];
end;
可老提示list index out of bounds(一个数字)呢？
var i,temp:integer;
field:tstrings;
begin
field:=tstringlist.Create ;
try
if checklistbox1.Checked then
begin
temp:=i;
session.GetFieldNames(combobox1.Text,checklistbox2.Items.Strings[temp],field);
checklistbox1.Items :=field;
end;
finally
field.Free ;
end;
end;
1，我用到两个checklistbox，第一个用来显示所有表的名称，当我点击选中checklistbox2里的CHCKBOX
后即选种一个表后，要求checklisbox1里显示出所有该表的字段名称，我又可以自己在checklistbox1
里来选则其中一些字段。但我现在为什么始终checklistbox1里没有数据显示？
2，如何得到我选中checklistbox2里的某个CHCKBOX的名称呢？如我当我点击选中checklistbox2里的CHCKBOX
后即选种一个表后，要得到该表的名称；如我当我点击选中checklistbox1里的CHCKBOX后即选多个字段后，
得到这些字段的名称，
procedure TForm1.CheckListBox2Click(Sender: TObject);//这个方法和上面的不一样
if checklistbox1.checked then
begin
temp:=i;
form1.caption:=checklistbox2.Items.Strings[temp];
end;
可老提示list index out of bounds(一个数字)呢？