procedure gettablename(tablename:string;from1:TForm1);
begin
form1.ADOTable1.TableName:=tablename;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
gettablename('b');//这里不通过
self.ADOTable1.Active:=true;
begin
form1.ADOTable1.TableName:=tablename;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
gettablename('b');//这里不通过
self.ADOTable1.Active:=true;
解决方案 »
- 请问这样做。。。。会内存泄露吗?(超级简单+分多)
- Merry Christmas
- 請問HttpProt在那里加?
- 并发问题,没有分但祝大家公司愉快
- 如何给数据库表增加字段? SQLSERVER2000
- access数据库如何定义能显视图片的字段?
- 文点愚笨的问题
- 百分求Microsoft Photodraw、Microsoft Publisher下载。(小弟急用,斑竹勿删,谢谢)
- 谁有用InterBase做的单机版程序,能给发一份吗?多谢!!!(带源码和数据库)
- 高分求购!IP包分析源代码!!
- 一个简单问题:如何使Edit框只允许写入数字
- 如何用Delphi的sql monitor来判断oracle表中的记录是否违背唯一性原则?
把gettablename('b');改成gettablename('b',self);
begin
gettablename('b');//
上面修改成这样
gettablename('b',你需要使用的form名称);
self.ADOTable1.Active:=true;