想记录一下订单log,可是订单log一直为空,请帮我看看,红色的代码有问题?
If e.DataCol.Name = "绑锁解绑" Then
Select Case e.DataRow("绑锁解绑")
Case "绑定"
If e.DataRow.IsNull("订单编号") = False And e.DataRow.IsNull("临时版本编号") = False And e.DataRow.IsNull("产品化编号") = False Then
e.DataRow("订单log") = "订单编号:" & e.DataRow("订单编号") & "+" & "临时版本编号:" & e.DataRow("临时版本编号") & "+" & "产品化编号:" & e.DataRow("产品化编号") & " " & User.Name & " " & Date.Now & " " & "已绑定" & vbcrlf & e.DataRow("订单log")
End If
If e.DataRow("订单编号") <> "" And e.DataRow("临时版本编号") <> "" And e.DataRow("产品化编号") = "" Then
e.DataRow("订单log") = "订单编号:" & e.DataRow("订单编号") & "+" & "临时版本编号:" & e.DataRow("临时版本编号") & User.Name & " " & Date.Now & " " & "已绑定" & vbcrlf & e.DataRow("订单log")
End If
Case "锁定"
e.DataRow("订单log") = "临时版本编号:" & e.DataRow("临时版本编号") & "和" & "订单编号:" & e.DataRow("订单编号") & " " & User.Name & " " & Date.Now & " " & "已锁定" & vbcrlf & e.DataRow("订单log")
Case "解锁"
e.DataRow("订单log") = "临时版本编号:" & e.DataRow("临时版本编号") & "和" & "订单编号:" & e.DataRow("订单编号") & " " & User.Name & " " & Date.Now & " " & "已解锁" & vbcrlf & e.DataRow("订单log")
End Select
End If