with Table1.FieldDefs do
begin
clear;
Add('Name',ftString,30,False);
Add('Value',ftInteger,0,False);
end;
Table1.CreateTable ;
begin
clear;
Add('Name',ftString,30,False);
Add('Value',ftInteger,0,False);
end;
Table1.CreateTable ;
解决方案 »
- Delphi2009的Structure树形浏览器,建议改成这样
- 三层结构中,clientdataset的ApplyUpdates(0)为什么总是把已有的记录重新创建而不是修改,谢谢
- 请大侠帮忙解释一下这段代码的作用!
- 自定义复制粘贴,在2000,xp下没有问题,98下粘贴时报错
- 帮忙?
- 欢迎SQL高手来研究
- (高手请进)关于在程序运行期间把一个字符串转换成代码来执行
- DELPHI 7 安装时的问题,请大家帮帮小弟!!!!
- ListView在vsIcon模式下怎么实现类似Windows在缩略图模式下的选中样式
- 关于ExitWindowsEx函数
- 再次询问如何获取qrexpr的值100分
- 谁来救救我吧!!!急。。。急。。。~~~~
DatabaseName
TableType
TableName
一定要指定么?不能把Table当一个没有DatabaseName的,自定义表用么?
代码如下:
function CreateTableInMemory(const AFieldDefs:TFieldDefs):TDataSet;
var
TempTable:TClientDataSet;
begin
TempTable:=nil;
Result:=nil;
if AFieldDefs<>nil then
begin
try
TempTable:=TClientDataSet.Create(Application);
TempTable.FieldDefs.Assign(AFieldDefs);
TempTable.CreateDataSet;
Result:=(TempTable as TDataSet);
Except
if TempTable<>nil then
TempTable.Free; Result:=nil;
raise;
end
end
end;
你说的我也知道啊。我问用Table行不行,
算了,我也做完了,发分吧。
Table1.FieldDefs.Clear //先清楚之......
就可以了, 如果实在不行,你看帮助,有很详细的例子