主题：合并列内容的问题？

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

 

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

 

现在的情况是如图：

此主题相关图片如下：qq截图20160330092824.jpg

比如加个“，”分开

Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "常用联系方式","备用联系方式"
        dr("联系方式") = dr("常用联系方式") & "," & dr("备用联系方式")
End Select