Foxtable(狐表) → 用户栏目 → 专家坐堂 → 遍历列名并动态增加列


  共有4637人关注过本帖树形打印复制链接

主题：遍历列名并动态增加列
帅哥哟，离线，有人找我吗？
feiyu988
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：278 积分：2909 威望：0 精华：0 注册：2013/8/28 22:21:00 		遍历列名并动态增加列  发帖心情 Post By：2014/11/12 14:15:00 [只看该作者]

想判断表A中是否存在列名为当前年月的列，如果没有，则动态增加列名为当前年月的列，怎么实现啊

 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：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
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：278 积分：2909 威望：0 精华：0 注册：2013/8/28 22:21:00 		  发帖心情 Post By：2014/11/12 14:28:00 [只看该作者]

OK

 回到顶部
帅哥哟，离线，有人找我吗？
feiyu988
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：278 积分：2909 威望：0 精华：0 注册：2013/8/28 22:21:00 		  发帖心情 Post By：2014/11/12 14:46:00 [只看该作者]

增加的列怎么会在重启项目后消失了

 回到顶部
帅哥哟，离线，有人找我吗？
jialihaha
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：996 积分：6630 威望：0 精华：0 注册：2014/10/20 11:06:00 		  发帖心情 Post By：2014/11/12 14:48:00 [只看该作者]

因为只是增加一个临时列

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/11/12 14:50:00 [只看该作者]

以下是引用feiyu988在2014-11-12 14:46:00的发言：
增加的列怎么会在重启项目后消失了

 

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

 

 
 回到顶部
帅哥哟，离线，有人找我吗？
feiyu988
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：278 积分：2909 威望：0 精华：0 注册：2013/8/28 22:21:00 		  发帖心情 Post By：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

 

列名不允许数字开头，能不能前边加前缀，怎么改呢
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：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
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2014/11/12 15:48:00 [只看该作者]

无法改,这个是不允许的.  你可以设置表标题
 回到顶部
帅哥哟，离线，有人找我吗？
jialihaha
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：996 积分：6630 威望：0 精华：0 注册：2014/10/20 11:06:00 		  发帖心情 Post By：2014/11/12 15:50:00 [只看该作者]

 .AddColumn("前缀名" & format(Date.Today,"yyyy年MM月") ,ADOXType.String, 20) '增加字符列,长度为20

 回到顶部
总数 13 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询