以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]动态设置合并列  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=96021)

--  作者:jyh7081
--  发布时间:2017/2/10 16:41:00
--  [求助]动态设置合并列
我在数据表的datacolchanged设置了列合并代码,如下,我想建一个窗口,获取 列标题 列表,进行勾选,然后为下列的基础代码赋值,再写进表事件中。
这种想法可行吗,能否实现?

Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "A","B","C"
        dr("D") = IIF(dr.IsNull("A"),"",dr("A")+vbcrlf)
        dr("D") += IIF(dr.IsNull("B"),"",dr("B")+vbcrlf)
        dr("D") += IIF(dr.IsNull("C"),"",dr("C")+vbcrlf)
        dr("D") = dr("D").trimend(vbcrlf)
End Select

附件:
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table


--  作者:有点色
--  发布时间:2017/2/10 17:09:00
--  

 你不能修改表事件里面的代码的。

 

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1 (2).table