以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  选择性赋值  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=175611)
--  作者：爱相随
--  发布时间：2022/3/11 12:33:00
--  选择性赋值
老师，我用途大类、用途二类、用途三类。债务用途四列，其中用途大类列肯业有数据，用途二类、用途三类可能有数据，也可能没有数据。要求，当用途三类列不为空时，债务用途等于用途三类，如果用途三类列为空时，债务用途列等三用途二类，如果用途三类和用途三类都为空时，债务用途列等于用途大类列的值。请老师指导，谢谢！！
Select Case e.DataCol.Name
    Case "用途大类","用途二类","用途三类"
        Dim s As String
        If e.DataRow.isnull("用途三类") = True Then
            s = e.DataRow("用途二类")
        End If
        If e.DataRow.isnull("用途二类") = True Then
            s = e.DataRow("用途大类")
            s= s.trim(",")
            e.DataRow("债务用途") = s
        End If
End Select
--  作者：有点蓝
--  发布时间：2022/3/11 13:40:00
--  
Select Case e.DataCol.Name
    Case "用途大类","用途二类","用途三类"
        Dim s As String = 
        If e.DataRow.isnull("用途三类") = false Then
            s = e.DataRow("用途三类")
elseIf e.DataRow.isnull("用途二类") = false Then
            s = e.DataRow("用途二类")
else
s = e.DataRow("用途大类")
        End If
e.DataRow("债务用途") = s
End Select