procedure Tfrmchild.OpenTable( var Table:TTable);
begin //初始化表
Temp := TTable.Create(Owner);
Temp := Table ;
Datachild_ds.DataSet := temp;
Temp.Open;
end;
OpenTable(datamd.depart)(datamd.depart是数据模块中的一个table控件)
begin //初始化表
Temp := TTable.Create(Owner);
Temp := Table ;
Datachild_ds.DataSet := temp;
Temp.Open;
end;
OpenTable(datamd.depart)(datamd.depart是数据模块中的一个table控件)
解决方案 »
- DBGrid如何动态添加多行数组
- 请问com+调用webservice如何实现
- Del的数据边接的问题
- 有没高手编写过pos之类的软件,本人想了解一下条形扫描器的用法
- 如何获得CD/DVD-RM/CDRW的硬件设备名称,版本号等信息!!!!!!在线等!!!!!!!!!!!!!!!
- 在dbctrlgrid中如何单独对指定的数据显示控件设置背景色?(半天没弄出来,急)
- 自动计划(autoplan)源代码***强烈推荐
- 我在访问 listbox 时。总是很容易出现& List index out of bounds(7或8或9....) 的错误。。请问如处解决呢??
- delphi程序员们。。留下你们的QQ号。我们多多交流..来者有分。。不够可以再加分
- 怎么用DELPHI制作帮助!很着急
- 时间运算的问题
- 请问delphi中怎样进行幂运算?
就这样就可以了:
Datachild_ds.DataSet := Table;
Table.Open;
procedure Tform1.OpenTable( var Table:TTable);
var
temp:pointer;
begin
//Temp := TTable.Create(Owner);
Temp := Table ;
datasource1.DataSet := temp;
ttable(Temp).Open;
end;
但是我在子类中调用
OpenTable(datamd.depart)(datamd.depart是数据模块中的一个table控件)
运行到
Temp:= Table时就出错
access violation at address 004C5DEC in modle XX.exe
read of 0000005C
var temp:TTable;
begin //初始化表
Temp := Table ;
Datachild_ds.DataSet := temp;
Temp.Open;
end;