你们好啊！如何我把listbox中的每条记录 在我创建的sql数据库中查找到 并输出sql中的和这条记录相关的其他字段到另一个listbox中

Question

你们好啊！如何我把listbox中的每条记录 在我创建的sql数据库中查找到 并输出sql中的和这条记录相关的其他字段到另一个listbox中

Answer 1

这个简单：
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;

Answer 2

掉用的时候：
 CurField := TField(FieldComboBox.Items.Objects[FieldComboBox.ItemIndex]);

Answer 3

这句是关键：
FieldComboBox.Items.AddObject(Fields[I].DisplayLabel, Fields[I]);