我想做一个查询,用户可以选择按照‘部门’或者‘工种’两个字段分别查询,准备用一个dbedit控件,根据用户的选择来确定dbedit.datasource和dbedit.datafield的内容,该如何编程。下面的程序中的'bumenname''gongzhongname'是字段名,但系统编译无法通过提示‘bumenname''gongzhongname'为部可是别的字符。 procedure TForm7.RadioGroup1Click(Sender: TObject); begin with datamodule2.bumentable do begin if radiogroup1.ItemIndex=0 then dbedit1.DataField:=bumenname else dbedit1.DataField:=gongzhongname; end; end;
procedure TForm7.RadioGroup1Click(Sender: TObject);
begin
with datamodule2.bumentable do
begin
if radiogroup1.ItemIndex=0 then
dbedit1.DataField:=bumenname
else
dbedit1.DataField:=gongzhongname;
end;
end;