以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  求助,如何简化窗口必填,代码,请给个学习方向.  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=159334)

--  作者：夜点蚊香 --  发布时间：2020/12/22 16:00:00 --  求助,如何简化窗口必填,代码,请给个学习方向. Dim r As Row = Tables("物品信息表").Current If r IsNot Nothing Then     If r.IsNull("类别") Then         Messagebox.Show("请输入类别!")         Return     End If     If r.IsNull("名称") Then         Messagebox.Show("请输入名称!")         Return     End If     If r.IsNull("品牌") Then         Messagebox.Show("请输入品牌!")         Return     End If     r.save End If

--  作者：有点蓝 --  发布时间：2020/12/22 16:03:00 --   Dim r As Row = Tables("物品信息表").Current If r IsNot Nothing Then dim str as string = {"类别","名称",......} for each s as string in str     If r.IsNull(s) Then         Messagebox.Show("请输入" & s & "!")         Return     End If next end if

--  作者：夜点蚊香 --  发布时间：2020/12/22 16:14:00 --   Dim r As Row = Tables("物品信息表").Current If r IsNot Nothing Then     Dim str() As String = {"类别","名称",......}     For Each s As String In str         If r.IsNull(s) Then             Messagebox.Show("请输入" & s & "!")             Return         End If     Next End If 搞定,多谢大神指点(大神留的小题目已经解开) str() 数组后面加括号.