调试技巧：http://www.foxtable.com/webhelp/topics/1485.htm
Else '保存编辑结果
MessageBox.Show(1)
Dim daa As Boolean = False
Dim nms5() As String = {"面料情况判定","单价","实际到样_数量","面料调样员","货号","实际单位"} '不能为空的列名数组
For Each nm5 As String In nms5
MessageBox.Show(nm5)
If e.PostValues.ContainsKey(nm5) = False Then '生成错误提示页
MessageBox.Show(nm5 & "=true")
daa = True
Exit For
End If
Next
MessageBox.Show("daa=" & daa)
If daa = True Then
e.WriteString("off")
Else
加好友 
发短信
Post By：2020/8/27 22:19:00 [显示全部帖子]
