S
stonehuang
Unregistered / Unconfirmed
GUEST, unregistred user!
編譯無錯﹐執行功能后老出現﹕opertion is not allowed in this content
procedure TForm10.ComboBox1DropDown(Sender: TObject);
begin
ComboBox1.Clear;
if dm.ADOQuery_GX.Active then
begin
dm.ADOQuery_GX.Close;
dm.ADOQuery_GX.Parameters[0].Name:=edit2.Text;
dm.ADOQuery_GX.Open;
dm.ADOQuery_GX.First;
while not dm.ADOQuery_GX.Eof do
begin
ComboBox1.Items.Add(dm.ADOQuery_GX.Fields[2].AsString);
dm.ADOQuery_GX.Next;
end;
end;
end;
sql:select * from talbex where CPID=:ID
procedure TForm10.ComboBox1DropDown(Sender: TObject);
begin
ComboBox1.Clear;
if dm.ADOQuery_GX.Active then
begin
dm.ADOQuery_GX.Close;
dm.ADOQuery_GX.Parameters[0].Name:=edit2.Text;
dm.ADOQuery_GX.Open;
dm.ADOQuery_GX.First;
while not dm.ADOQuery_GX.Eof do
begin
ComboBox1.Items.Add(dm.ADOQuery_GX.Fields[2].AsString);
dm.ADOQuery_GX.Next;
end;
end;
end;
sql:select * from talbex where CPID=:ID