for i:=0 to ADOtb1.Recordset.RecordCount -1 do
begin
cmb1.Items.Add(ADOtb1.Fields[2].AsString);
ADOtb1.Recordset.MoveNext ;
end;运行结果,组合框的列表中填了多行,但是,每行的内容都相同。我想把上面的代码ADOtb1.Fields[2].AsString 改成ADOtb1.Recordset.Fields[2].AsString,会出现错误,说是没有asstring的方法。请大家帮忙改正一下代码。谢谢。
begin
cmb1.Items.Add(ADOtb1.Fields[2].AsString);
ADOtb1.Recordset.MoveNext ;
end;运行结果,组合框的列表中填了多行,但是,每行的内容都相同。我想把上面的代码ADOtb1.Fields[2].AsString 改成ADOtb1.Recordset.Fields[2].AsString,会出现错误,说是没有asstring的方法。请大家帮忙改正一下代码。谢谢。
cmbl.items.clear;
while not adotbl.eof do begin
cmbl.items.add(adotbl.fields[2].Asstring);
adotbl.next;
end;应改成ADOtb1.Recordset.Fields[2].Value;