dbfTable.DatabaseName := ls_localpath;
dbfTable.TableType :=ttFoxpro;
dbfTable.TableName := 'infodef';
dbfTable.FieldDefs.Clear;
dbfTable.FieldDefs.Add('field1',ftInteger,0,false);
dbfTable.FieldDefs.Add('field2',ftString,8,false);
dbfTable.FieldDefs.Add('FLAG',ftInteger,0,false);
dbfTable.IndexDefs.add('servindx','field2',[ixCaseInsensitive]);
dbfTable.CreateTable;
dbfTable.TableType :=ttFoxpro;
dbfTable.TableName := 'infodef';
dbfTable.FieldDefs.Clear;
dbfTable.FieldDefs.Add('field1',ftInteger,0,false);
dbfTable.FieldDefs.Add('field2',ftString,8,false);
dbfTable.FieldDefs.Add('FLAG',ftInteger,0,false);
dbfTable.IndexDefs.add('servindx','field2',[ixCaseInsensitive]);
dbfTable.CreateTable;
解决方案 »
- 关于应用程序路径问题 请高手解答
- ftpexception
- 关于利用imgedit系列控件控制扫描仪:如何得到当前扫描仪还有几页没有扫苗?共有几页?
- 高分求解----安装过的组件,删除后再次安装时,为什么在页面里看不到呢?
- delphi6或sql server里取月末最后一天的日期 或者 取这个月的天数的函数是?
- 为什么TImagelist中能加入的图标数量有限制,如何突破?
- 青岛朋友来聊聊
- DCOM三层结构问题
- ?????怎么没经验找工作那么难???????
- 一个关于NTService的问题。
- 如何截取BITBTN的RETURN、LEFT、RIGTH键?
- 有4张表,分别在一张纸上打印,4张同时打印才是完整的一份报表,请问如何设置
dbfTable.CreateTable;
dbfTable.IndexDefs.add('servindx','field2',[ixCaseInsensitive]);
dbfTable.TableType :=ttFoxpro;
dbfTable.TableName := 'infodef';
dbfTable.FieldDefs.Clear;
dbfTable.FieldDefs.Add('field1',ftInteger,0,false);
dbfTable.FieldDefs.Add('field2',ftString,8,false);
dbfTable.FieldDefs.Add('FLAG',ftInteger,0,false);
dbfTable.CreateTable;
dbfTable.open;
dbfTable.IndexDefs.add('servindx','field2',[ixCaseInsensitive]);
dbftable.createIndex;但这样建出来的表,不支持Number类型
dbfTable.DatabaseName := ls_localpath;中的ls_localpath是不是在CreateTable前提前建立的别名