Dim d As Integer
Dim str As String
d = user.name.IndexOf("@")
str = user.Name.SubString(0,d)
If e.Col.name = "校验结果" Then
If e.text = "NG" Then
e.Table.FinishEditing
e.Row("品管检验时间") = Date.now
e.Row("检验人员") = str
Forms("品管校验入口").open
Else
If (MessageBox.show("确定工单号行号:" & e.Row("工单号行号") & "品管检验项目全部通过?","提示",MessageBoxButtons.OKCancel,MessageBoxIcon.Question) = DialogResult.OK) Then
e.Row("品管检验时间") = Date.now
e.Row("检验人员") = str
Else
e.Row("品管检验时间") = Nothing
e.Row("检验人员") = Nothing
msgbox(0)
e.Row("校验结果") = Nothing------显示仍然是ok，希望为空才对。
msgbox(e.Row("校验结果"))-------弹出e.Row("校验结果")为空
End If
End If
End If
加好友 
发短信
Post By：2016/4/5 16:20:00 [只看该作者]
