以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]多个数据列合并  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=70653)
--  作者：seal51
--  发布时间：2015/6/25 18:48:00
--  [求助]多个数据列合并

 下载信息  [文件大小：   下载次数： ]
点击浏览该文件:多列合并.foxdb

 

外径，内径， 高度都填写数据，参数合并成功 OD30×ID20×THK100

如果任何一列的数据没有填写， 参数合并无任何数据， 怎么办

如果没填写全，比如内径无数据，需要生成 OD30×THK100, 怎么办

不能填写其他字符数字代替

 

请老师看附件列子
--  作者：seal51
--  发布时间：2015/6/25 18:50:00
--  

外径，内径，高度都是直接写在代码里， 如何直接引用列名呢？
--  作者：大红袍
--  发布时间：2015/6/25 19:43:00
--  
Select Case e.DataCol.Name
    Case "外径","内径","高度"
        Dim dr As DataRow = e.DataRow
        Dim str As String = ""
        If dr.IsNull("外径") = False Then
            str &= "×OD" & dr("外径")
        End If
        If dr.IsNull("内径") = False Then
            str &=  "×ID" & dr("内径")
        End If
        If dr.IsNull("高度") = False Then
            str &= "×THK" & dr("高度")
        End If
        e.DataRow("参数合并") = str.Trim("×")
End Select
--  作者：seal51
--  发布时间：2015/6/25 23:47:00
--  

谢谢老师！
--  作者：yuyoufei11
--  发布时间：2016/5/29 20:47:00
--  
 11