以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  临时值公式  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=178195)
--  作者：wumingrong1
--  发布时间：2022/6/22 19:40:00
--  临时值公式
sl1   sl2  sl3  sl4 做为临时值、最后合并到【第九列】；这个公式该怎么改

Select Case e.DataCol.name
    Case "第一列","第二列","第三列","第四列"
        If  e.DataRow.isnull("第一列") = Nothing Then
            sl1 = "第一列:" + e.DataRow("第一列") + "米;"
        Else
            sl1 = ""
        End If

        If  e.DataRow.isnull("第二列") = Nothing Then
            sl2 = "第二列:" + e.DataRow("第二列") + "公里;"
        Else
            sl2 = ""
        End If

        If  e.DataRow.isnull("第三列") = Nothing Then
            sl3 = "第三列:" + e.DataRow("第三列") + "公里;"
        Else
            sl3 = ""
        End If

        If  e.DataRow.isnull("第四列") = Nothing Then
            sl4 = "第四列:" + e.DataRow("第四列") + "公里;"
        Else
            sl4 = ""
        End If
        
        e.DataRow("第九列") = sl1+ sl2 +sl3 +sl4
        
End Select
--  作者：有点蓝
--  发布时间：2022/6/23 8:37:00
--  
Select Case e.DataCol.name
    Case "第一列","第二列","第三列","第四列"
dim s as string 
        If  e.DataRow.isnull("第一列") = false Then
            s = s & "第一列:" + e.DataRow("第一列") + "米;"
        End If

        If  e.DataRow.isnull("第二列") = false Then
            s = s & "第二列:" + e.DataRow("第二列") + "公里;"
        End If

        If  e.DataRow.isnull("第三列") = false Then
            s = s & "第三列:" + e.DataRow("第三列") + "公里;"
        End If

        If  e.DataRow.isnull("第四列") = false Then
            s = s &  "第四列:" + e.DataRow("第四列") + "公里;"
        End If
        
        e.DataRow("第九列") =s
        
End Select