以文本方式查看主题

-  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=56468)

--  作者:ZHX88863808
--  发布时间:2014/9/5 19:55:00
--  [求助]多列合并代码

表中有A,B,C,D四列,D列是A,B,C三列的合并,不用表达式,所以请老师们帮忙写个代码,谢谢!

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:多列合并代码.table


--  作者:ZHX88863808
--  发布时间:2014/9/5 21:09:00
--  

老师们,这个合并代码是不是有点麻烦?


--  作者:y2287958
--  发布时间:2014/9/5 23:09:00
--  
最基础的东西。

DataColChanged事件:

Select Case e.DataCol.Name
    Case "A","B","C"
        e.DataRow("D") = e.DataRow("A") +e.DataRow("B") +e.DataRow("C")
End Select

--  作者:ZHX88863808
--  发布时间:2014/9/6 6:52:00
--  

谢谢老师!不过这里如果我想在合并列中加入分隔符(如a/b/c),那代码又怎么写呢?请帮忙一下,谢谢!!!

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:多列合并a.table


--  作者:有点酸
--  发布时间:2014/9/6 7:49:00
--  
Select Case e.DataCol.Name
    Case "A","B","C"
        e.DataRow("D") = e.DataRow("A") & "/" & e.DataRow("B") & "/" & e.DataRow("C")
End Select
 
或者表达式:
 
[a] + \'\\\' + [b] + \'\\\' + [c]
 
 
 
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目3.table


--  作者:ZHX88863808
--  发布时间:2014/9/6 8:20:00
--  
谢谢!但是,如果有空值的时候就不能合并,我很希望有空值的时侯也能合并,不过我不想用表达式,因为表达式在表关联时不能用,所以还望老师帮忙再修改一下,谢谢!!!
--  作者:有点酸
--  发布时间:2014/9/6 8:38:00
--  

Isnull([a],\'\') + \'\\\' + Isnull([b],\'\') + \'\\\' + Isnull([c],\'\')

 

 


--  作者:ZHX88863808
--  发布时间:2014/9/6 9:17:00
--  

能不能用代码?


--  作者:ZHX88863808
--  发布时间:2014/9/6 18:25:00
--  
各位老师:上面这个多列合并含空值同时又包含分隔符的代码能写吗?如能写的话,请帮忙写一个,谢谢!!!
--  作者:有点酸
--  发布时间:2014/9/6 22:36:00
--  

代码本来就是有空值也会合并的啊:

 

Select Case e.DataCol.Name
    Case "A","B","C"
        e.DataRow("D") = e.DataRow("A") & "/" & e.DataRow("B") & "/" & e.DataRow("C")
End Select