以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  表达式合写  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=162973)

--  作者:yuyu060712
--  发布时间:2021/4/19 10:58:00
--  表达式合写

Dim dd As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "序1"
        If dd.IsNull("序1")  Then \'如果数量或单价为空
            dd ("序号1") = Nothing
        Else
           dd ("序号1") = dd("零件编号") + "01"
        End If
End Select
Select Case e.DataCol.Name
    Case "序2"
        If dd.IsNull("序2")  Then \'如果数量或单价为空
            dd ("序号2") = Nothing
        Else
           dd ("序号2") = dd("零件编号") + "02"
        End If
End Select

老师,如果我有序1~序20,序号1也从01~20,不想一个一个的写


--  作者:有点蓝
--  发布时间:2021/4/19 11:07:00
--  
for i as integer = 1 to 20
if e.DataCol.Name = "序" & i then
        If dd.IsNull("序" & i)  Then \'如果数量或单价为空
            dd ("序号" & i) = Nothing
        Else
           dd ("序号" & i) = dd("零件编号") & format(i, "00")
        End If
exit for
end if
next