procedure CreateList(RzComboBox: TRzComboBox; Field1, Field2, Table, condition: string; Flg: Boolean=False);
procedure Tdtm_dm.CreateList(RzComboBox: TRzComboBox; Field1, Field2, Table,
condition: string; Flg: Boolean);
begin
try
with cdsPublic do
begin
Close;
CommandText := ' select RTrim(' + Field1 + ')[a],RTrim(' + Field2 + ')[b] from ' + Table + ' ' + condition;
Open;
RzComboBox.Values.Clear;
RzComboBox.Items.Clear;
if Flg then
begin
RzComboBox.Values.Add('%');
RzComboBox.Items.Add('全部');
end;
while not Eof do
begin
RzComboBox.Values.Add(FieldByName('a').AsString);
RzComboBox.Items.Add(FieldByName('b').AsString);
Next;
end;
end;
finally
end;
end;