- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 列集合问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=97722)
-- 发布时间：2017/3/17 12:09:00
-- 列集合问题
学生姓名或户籍省是空时，不打开窗口1，或者打开窗口1 ，请教代码错在哪？谢谢
Dim kjmc() As String = "学生姓名,户籍省".Split(",")
For i As Integer = 0 To kjmc.Length - 1
If e.Form.Controls(kjmc(i)).text = Nothing Then
MessageBox.Show("【"& kjmc(i)&"】不能为空,请检查")
e.Form.Controls(kjmc(i)).Select
Return
Else
Forms("窗口1").Open()
End If
Next
此主题相关图片如下：qq截图20170317120628.png
-- 发布时间：2017/3/17 12:46:00
--
Dim kjmc() As String = "学生姓名,户籍省".Split(",")
For i As Integer = 0 To kjmc.Length - 1
If e.Form.Controls(kjmc(i)).text = Nothing Then
MessageBox.Show("【"& kjmc(i)&"】不能为空,请检查")
e.Form.Controls(kjmc(i)).Select
Return
End If
Next
Forms("窗口1").Open()
-- 发布时间：2017/3/17 13:32:00
--
谢谢