Foxtable(狐表)用户栏目专家坐堂 → [求助]动态设置合并列


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

主题:[求助]动态设置合并列

帅哥哟,离线,有人找我吗?
jyh7081
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:960 积分:8478 威望:0 精华:0 注册:2012/10/3 13:25:00
[求助]动态设置合并列  发帖心情 Post By: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


 回到顶部