| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]changeedit (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=83265) |
| -- 作者：huhu -- 发布时间：2016/4/5 16:20:00 -- [求助]changeedit 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
|
| -- 作者：大红袍 -- 发布时间：2016/4/5 16:34:00 -- 试试
e.Table.FinishEditing |