procedure TForm1.Button1Click(Sender: TObject);
begin
ADOtable1.Filtered:=False;
ADOtable1.Filter:=''''+Trim(combobox1.Text)+''''+'='+Trim(Edit1.Text)+''''; //这行有错,一点击button,说是类型不对,或参数冲突,什么意思?
ADOtable1.Filtered:=True;
end;procedure TForm1.FormCreate(Sender: TObject);
var i:Integer;
begin
Combobox1.Items.Clear; For i:=0 to adotable1.FieldCount-1 do
Combobox1.Items.Add(adotable1.Fields.Fields[i].fieldname);
Combobox1.ItemIndex:=0
end;运行报错,说是
begin
ADOtable1.Filtered:=False;
ADOtable1.Filter:=''''+Trim(combobox1.Text)+''''+'='+Trim(Edit1.Text)+''''; //这行有错,一点击button,说是类型不对,或参数冲突,什么意思?
ADOtable1.Filtered:=True;
end;procedure TForm1.FormCreate(Sender: TObject);
var i:Integer;
begin
Combobox1.Items.Clear; For i:=0 to adotable1.FieldCount-1 do
Combobox1.Items.Add(adotable1.Fields.Fields[i].fieldname);
Combobox1.ItemIndex:=0
end;运行报错,说是
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货