以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  编程问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=119709)
--  作者：13775189031
--  发布时间：2018/5/30 16:27:00
--  编程问题
Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "到货_一次到全"
        If dr("到货_一次到全") = False Then
            dr("到货_一次到全日期") = Nothing
            dr("到货数量") = Nothing
        Else
            dr("到货_一次到全日期") = Date.today
            dr("到货数量") = dr("数量")
        End If
    Case "到货_第一批数量"
        If dr.IsNull("到货_第一批数量") Then
            dr("到货_第一批到货日期") = Nothing
        Else
            dr("到货_第一批到货日期") = Date.today
        End If
    Case "到货_第二批数量"
        If dr.IsNull("到货_第二批数量") Then
            dr("到货_第二批到货日期") = Nothing
        Else
            dr("到货_第二批到货日期") = Date.today
        End If
    Case "到货_第三批数量"
        If dr.IsNull("到货_第三批数量") Then
            dr("到货_第三批到货日期") = Nothing
        Else
            dr("到货_第三批到货日期") = Date.today
        End If
    Case "到货_第四批数量"
        If dr.IsNull("到货_第四批数量") Then
            dr("到货_第四批到货日期") = Nothing
        Else
            dr("到货_第四批到货日期") = Date.today
        End If
End Select


一次到全时，“到货数量”=“数量”
分几批到货时，“到货数量”=“第一批数量”+“第二批数量”+“第三批数量”+“第四批数量”

编程要怎么改？
--  作者：有点甜
--  发布时间：2018/5/30 16:31:00
--  
Select Case e.DataCol.Name
    Case "到货_一次到全","到货_第一批数量","到货_第er批数量","到货_第三批数量","到货_第四批数量"
        If dr("到货_一次到全") = False Then
            dr("到货数量") = dr("到货_第一批数量") + dr("到货_第二批数量") + dr("到货_第三批数量") + dr("到货_第四批数量")
        Else
            dr("到货数量") = dr("数量")
        End If
End Select
--  作者：13775189031
--  发布时间：2018/5/31 14:13:00
--  
搞定了！谢谢！