以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  合并列内容的问题?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=83038)

--  作者:zsslly
--  发布时间:2016/3/30 9:33:00
--  合并列内容的问题?

我的表中有“联系方式”,“常用联系方式”,“备用联系方式”列,通过代码合并后两列到“联系电话”列,但合并后中间没有分隔,想加一个分隔符,如“备用联系方式”没有内容则没有分隔符,求助!!

 

\'联系方式开始方案二
Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "常用联系方式","备用联系方式"
        dr("联系方式") = dr("常用联系方式") & dr("备用联系方式")
End Select
\'联系方式结束方案二

 

现在的情况是如图:


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20160330092824.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2016/3/30 9:33:47编辑过]

--  作者:zsslly
--  发布时间:2016/3/30 9:37:00
--  
比如加个“,”分开
--  作者:大红袍
--  发布时间:2016/3/30 10:05:00
--  
Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "常用联系方式","备用联系方式"
        dr("联系方式") = dr("常用联系方式") & "," & dr("备用联系方式")
End Select