＋设为首页 ＋添加到收藏夹
偶是c#過來delphi的,請問下面的過程,錯在哪啊?為什麼不對啊?
procedure ComBind(sql:string;comb1:TDBComboBox;val:string;);
begin
with DataM.q1 do
begin
sql.Clear;
sql.Add( +str+ );
Open;
comb1.DataSource:=DataM.q1;
comb1.DataField:= val;
end
end;
是不是把错误信息帖出来看看
procedure ComBind(sql:string;comb1:TDBComboBox;val:string;);
begin
with DataM.q1 do
begin
close;//---------------------
sql.Clear;
sql.Add( +str+ );
Open;
comb1.DataSource:=DataM.q1;
comb1.DataField:= val;
end
end;
procedure ComBind(sql:string;comb1:TDBComboBox;val:string;);
//----函数参数名称[SQL]与查询组件的属性名称相同，要改一下。
begin
with DataM.q1 do
begin
sql.Clear;
sql.Add( +str+ );
Open;
comb1.DataSource:=DataM.q1;
comb1.DataField:= val;
end
end;
是错误信息帖出来看看。晕。
你这样改一下试试，猜测。
begin
Application.Initialize;
Application.CreateForm(TDataModule2, DataModule2); //把创建DataM的放到前面试试呢
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
