Foxtable(狐表)用户栏目专家坐堂 → 求助,如何简化窗口必填,代码,请给个学习方向.


  共有2485人关注过本帖平板打印复制链接

主题:求助,如何简化窗口必填,代码,请给个学习方向.

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


加好友 发短信
等级:三尾狐 帖子:603 积分:4624 威望:0 精华:0 注册:2020/4/15 19:53:00
求助,如何简化窗口必填,代码,请给个学习方向.  发帖心情 Post By: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

 回到顶部