以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  遍历列名并动态增加列  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=59859)
--  作者：feiyu988
--  发布时间：2014/11/12 14:15:00
--  遍历列名并动态增加列
想判断表A中是否存在列名为当前年月的列，如果没有，则动态增加列名为当前年月的列，怎么实现啊
--  作者：Bin
--  发布时间：2014/11/12 14:17:00
--  
If DataTables("表A").DataCols.Contains(format(Date.Today,"yyyy年MM月"))=False Then
   DataTables("表A").DataCols.Add(format(Date.Today,"yyyy年MM月"),Gettype(String))
End If 
--  作者：feiyu988
--  发布时间：2014/11/12 14:28:00
--  
OK
--  作者：feiyu988
--  发布时间：2014/11/12 14:46:00
--  
增加的列怎么会在重启项目后消失了
--  作者：jialihaha
--  发布时间：2014/11/12 14:48:00
--  
因为只是增加一个临时列
--  作者：有点甜
--  发布时间：2014/11/12 14:50:00
--  
以下是引用feiyu988在2014-11-12 14:46:00的发言：
增加的列怎么会在重启项目后消失了

 

http://www.foxtable.com/help/topics/2122.htm

 

 
--  作者：feiyu988
--  发布时间：2014/11/12 15:44:00
--  

Dim Builder As New ADOXBuilder("wuzi")
Builder.Open() \'打开ADOXBuilder
With Builder.Tables("材料表")
    .AddColumn("format(Date.Today,"yyyy年MM月") ,ADOXType.Decimal) \'增加高精度小数

End With
Builder.Close() \'关闭ADOXBuilder

 

列名不允许数字开头，能不能前边加前缀，怎么改呢
--  作者：有点甜
--  发布时间：2014/11/12 15:48:00
--  

Dim Builder As New ADOXBuilder("wuzi")
Builder.Open() \'打开ADOXBuilder
With Builder.Tables("材料表")
    .AddColumn("format(Date.Today,"列名yyyy年MM月") ,ADOXType.Decimal) \'增加高精度小数

End With
Builder.Close() \'关闭ADOXBuilder
--  作者：Bin
--  发布时间：2014/11/12 15:48:00
--  
无法改,这个是不允许的.  你可以设置表标题
--  作者：jialihaha
--  发布时间：2014/11/12 15:50:00
--  
 .AddColumn("前缀名" & format(Date.Today,"yyyy年MM月") ,ADOXType.String, 20) \'增加字符列,长度为20