Foxtable(狐表)用户栏目专家坐堂 → [求助]怎样做一个输入检查


  共有3217人关注过本帖树形打印复制链接

主题:[求助]怎样做一个输入检查

帅哥哟,离线,有人找我吗?
lijin951
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:87 积分:701 威望:0 精华:0 注册:2014/8/4 11:54:00
[求助]怎样做一个输入检查  发帖心情 Post By:2014/9/10 17:27:00 [只看该作者]

我想做一个输入检查,用来校验,表中是否有值。比如表Z中有‘a’ ,‘b’ 两个字段我在保存这张表前需要检查里面是否有值,如果没值则返回不能保存
这张表作为窗口入库单的一个副本表名为t1,代码如下:

If DataTables("入库单_t1").DataRows.Count > 0 Then
    For Each r Row In Tables("入库单_t1")
        If r("a") = "" Then
            MessageBox.Show("明细中尚有a字段为填写","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
            Return
        End If
        If r("b") = "" Then
            MessageBox.Show("明细中尚有b字段未填写","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
            Return
        End If
    Next
Else
    MessageBox.Show("表Z无明细项不能保存","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If


If DataTables("表Z").HasChanges = True Then
    DataTables("表Z").Save
End If

这段代码执行不起,不知道错误在哪里

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/9/10 17:30:00 [只看该作者]

不用遍历. 直接在BeforSaveDataRow事件中判断就可以了

if e.datarow.isnull("A") orelse e.datarow.isnull("B") then
     messagebox.show("不能为空")
     e.cancel=true
end if

 回到顶部