用代码算出来的呀！为什么其他的代码算的表达式可以保存啊？晕死！
到货时间可以显示，但是重新打开以后就没了！
Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
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
Case "到货情况"
If dr("到货情况") = True Then
dr.Locked = True
End If
End Select
加好友 
发短信
Post By：2018/2/1 16:46:00 [显示全部帖子]
