| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]请教老师批量增加表达式列的代码 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=100179) |
| -- 作者：ltty5200 -- 发布时间：2017/5/6 10:01:00 -- [求助]请教老师批量增加表达式列的代码 老师，我想在表A第九列和第十列之间批量插入12个表达式列，能有相应的代码吗？貌似在帮助文件里没有找到插入货增加表达式列的代码 |
| -- 作者：有点蓝 -- 发布时间：2017/5/6 10:11:00 -- 增加临时表达式列：http://www.foxtable.com/webhelp/scr/1428.htm |
| -- 作者：wyz20130512 -- 发布时间：2017/5/6 10:11:00 -- Dim cn As String = "表达式" With Tables("表B") For i As Integer = 1 To 12 .DataTable.DataCols.Add(cn & i,Gettype(Double),"") Next .Cols("第十列").Move(.Cols.Count - 1) End With
[此贴子已经被作者于2017/5/6 10:20:03编辑过]
|
| -- 作者：ltty5200 -- 发布时间：2017/5/6 10:23:00 -- 老师，这样增加的表达式列是临时的，项目重新打开后就不见了，我需要的是永久的那种？或者有没有方法让用这个方法增加的列是永久的？ |
| -- 作者：ltty5200 -- 发布时间：2017/5/6 10:24:00 -- 谢谢，这个方法增加的是临时的，重新打开项目后这些列就不见了，有能增加永久的吗？ |
| -- 作者：有点蓝 -- 发布时间：2017/5/6 10:32:00 -- 把代码放到AfterOpenProject事件 否则只能在表结构一个个添加
|
| -- 作者：wyz20130512 -- 发布时间：2017/5/6 10:34:00 -- 把代码放在项目AfterOpenProject事件中即可！ |