你们好啊！如何我把listbox中的每条记录 在我创建的sql数据库中查找到 并输出sql中的和这条记录相关的其他字段到另一个listbox中
你们好啊！如何我把listbox中的每条记录 在我创建的sql数据库中查找到 并输出sql中的和这条记录相关的其他字段到另一个listbox中
问题点数：0、回复次数：3Top
1 楼snake_eye（别人都叫我老李）回复于 2003-06-01 20:14:34 得分 0
这个简单：
procedure TForm_QueryBill.SetEyeDataSet(ADataSet: TClientDataSet);
var
I: Integer;
begin
if FieldComboBox.Items.Count <> 0 then
FieldComboBox.Items.Clear;
FEyeDataSet := ADataSet;
for I := 0 to FEyeDataSet.FieldCount - 1 do
begin
FEyeDataSet.Fields[I].DisplayLabel := FieldList[I];
Field_ClientDataSet.Fields[I].DisplayLabel:=FieldList[I];
end;
with FEyeDataSet do
begin
for I := 0 to FEyeDataSet.FieldCount - 1 do
begin
if not Fields[I].Visible then Continue;
if not CanFilter(Fields[I]) then Continue;
FieldComboBox.Items.AddObject(Fields[I].DisplayLabel, Fields[I]);
end;
end;
FFilterStr := '';
end;
Top
2 楼snake_eye（别人都叫我老李）回复于 2003-06-01 20:15:33 得分 0
掉用的时候：
CurField := TField(FieldComboBox.Items.Objects[FieldComboBox.ItemIndex]);
Top
3 楼snake_eye（别人都叫我老李）回复于 2003-06-01 20:16:05 得分 0
这句是关键：
FieldComboBox.Items.AddObject(Fields[I].DisplayLabel, Fields[I]);
Top
