切换用户时有必填字段为空如何中止切换？（已解决） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 切换用户时有必填字段为空如何中止切换？（已解决）

共有9492人关注过本帖树形打印复制链接主题：切换用户时有必填字段为空如何中止切换？（已解决）

blackzhu

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐仙帖子：9875 积分：57596 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2013/1/10 13:15:00 [显示全部帖子]

把保存按钮离得代码取出来放在必须判断保存的按钮中去.

Dim s() As String ={"分类","任务"}

For Each dr As DataRow In DataTables("表A").DataRows

For i As Integer = 0 To s.Length-1

If dr.IsNull(s(i)) Then

MessageBox.Show(s(i) & "不能为空")

Dim wz As Integer = Tables("表A").FindRow(dr)

If wz >= 0 Then

Tables("表A").Position = wz

End If

Return

Else

Forms("用户登录").Open

End If

试试这样?

[此贴子已经被作者于2013-1-10 13:18:03编辑过]

blackzhu

小大 2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐仙帖子：9875 积分：57596 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2013/1/10 13:52:00 [显示全部帖子]

代码不是给你了.

blackzhu

小大 3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐仙帖子：9875 积分：57596 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2013/1/10 14:10:00 [显示全部帖子]

For Each dt As DataTable In DataTables

For Each cl As DataCol In dt.DataCols

For Each dr As DataRow In dt.DataRows

If dr.IsNull(cl.Name) Then

MessageBox.Show(dt.Name & ":" & cl.Name & "存在空值,不能切换窗口!")

Dim wz As Integer = Tables("表A").FindRow(dr)

If wz >= 0 Then

Tables("表A").Position = wz

End If

Return

Else

Forms("用户登录").Open

End If

下一主题 >> << 上一主题

主题：切换用户时有必填字段为空如何中止切换？（已解决）