专家坐堂-编号合并Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  编号合并  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=58985)

--  作者：yuyu060712
--  发布时间：2014/10/27 17:54:00
--  编号合并

If e.DataCol.name = "探伤编号" OrElse e.DataCol.name="磁粉渗透" Then
   If e.DataRow.isnull("探伤编号")=False AndAlso e.DataRow.isnull("磁粉渗透")=False Then
       e.DataRow("无损检测号")=e.DataRow("探伤编号") & "," & e.DataRow("磁粉渗透")
   End If
End If

老师，我想问问，“探伤编号和磁粉渗透”其中一种如果为空就只显示其中有的一个，如果全没有就显示为 /的代码怎么改？

--  作者：有点甜
--  发布时间：2014/10/27 17:59:00
--
If e.DataCol.name = "探伤编号" OrElse e.DataCol.name="磁粉渗透" Then
    Dim str As String = "/"
    If e.DataRow.isnull("探伤编号") = False Then
        str = e.DataRow("探伤编号") & ","
    End If

    If e.DataRow.isnull("磁粉渗透") = False Then
        str &= e.DataRow("磁粉渗透")
    End If

    e.DataRow("无损检测号") = str.Trim(",")
End If

--  作者：yuyu060712
--  发布时间：2014/10/27 18:04:00
--
谢谢甜老师