- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 动态临时增加列的代码应该写下哪里合适 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=136924)
-- 发布时间：2019/6/24 17:04:00
-- 动态临时增加列的代码应该写下哪里合适
我把增加临时列的代码写在了DropBox1的ValueChanged事件中如下:
If e.Sender.Value IsNot Nothing Then
e.Form.Controls("TabControl2").Showtabs = True
For i As Integer = 0 To 7
e.Form.Controls("TabControl2").tabpages(i).visible = True
Dim dt1 As DataTable = DataTables("工程数据列表_tb承包方发票")
dt1.loadFilter = "工程名称 = \'"& e.Sender.value & "\'"
dt1.load
If dt1.DataCols("东渡应开票") Is Nothing Then
dt1.datacols.Add("东渡应开票",Gettype(Integer), "[发票金额] * (1 - [管理费率])")
End If
End If
总是跳出来如下提示,但添加还是正常的
此主题相关图片如下：动态临时增加列的代码应该写下哪里合适.png
-- 发布时间：2019/6/24 17:14:00
--
代码写到【工程数据列表】窗口的afterLoad事件试试
如果还有问题，做个例子发上来测试
-- 发布时间：2019/6/25 8:45:00
-- 回复：（有点甜） 代码写到【工程数据列表】窗...
在窗口的afterload还是不行,麻烦您帮我看下,谢谢
-- 发布时间：2019/6/25 10:25:00
--
上传的项目没有下拉窗口
-- 发布时间：2019/6/25 11:22:00
-- 回复：（有点蓝）上传的项目没有下拉窗口
我把下拉窗口的代码放在在窗口的afterload事件后的这个错误提示如下:
此主题相关图片如下：不存在列.png
Dim dt1 As DataTable = DataTables("工程数据列表_tb承包方发票")
If dt1.DataCols("东渡应开票") Is Nothing Then
dt1.datacols.Add("东渡应开票",Gettype(Integer), "[发票金额] * 1.1")
End If
-- 发布时间：2019/6/25 11:56:00
--
其它地方有问题导致的，请做一个对应实例发上来测试。
-- 发布时间：2021/12/17 10:56:00
--
我也遇到这个问题了，最后怎么解决的？