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
一次到全时，“到货数量”=“数量”
分几批到货时，“到货数量”=“第一批数量”+“第二批数量”+“第三批数量”+“第四批数量”
编程要怎么改？
加好友 
发短信
Post By：2018/5/30 16:27:00 [显示全部帖子]
