专家坐堂-菜单对象Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  菜单对象  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=76316)

--  作者：jinzhengbe
--  发布时间：2015/10/26 22:15:00
--  菜单对象

此主题相关图片如下：捕获.png

这个应该怎么改？有关于菜单对象的帮助么？

--  作者：大红袍
--  发布时间：2015/10/26 22:34:00
--
你想做什么功能？直接说。

--  作者：jinzhengbe
--  发布时间：2015/10/27 10:42:00
--

If Tables("weixin").Current.IsNull("shuliang")=True \'判断是否不符合验证要求
    MessageBox.Show("商城为空,请输入或者删除行") \'提示用户
Else
    Dim Index As Integer
    Dim Row As DataRow = DataTables("weixin").Find("shuliang is null")
    If Row IsNot Nothing Then
        Index = Tables("weixin").FindRow(Row) \'找出此行在销售数据Table中的位置
        If Index > -1 Then \'如果找到此行
            Tables("weixin").Position = Index \'将焦点定位到此行
        End If
    End If
    MainTable = Tables("product") \'选择销售数据表作为主表.
   Return
End If
MainTable = Tables("product")
Tables("weixindanhao").addnew()

黄色的地方要用cancel 但是在菜单的按钮里不支持，所以咨询一下，

想在添加新的订单前检查一下，原先的订单是不是有没有输入数量的。

[此贴子已经被作者于2015/10/27 10:43:42编辑过]

--  作者：大红袍
--  发布时间：2015/10/27 11:37:00
--

那你就检测然后提示或者return啊。

If Tables("weixin").Current.IsNull("shuliang")=True \'判断是否不符合验证要求
    MessageBox.Show("商城为空,请输入或者删除行") \'提示用户
Else
    Dim Index As Integer
    Dim Row As DataRow = DataTables("weixin").Find("shuliang is null")
    If Row IsNot Nothing Then
        msgbox("数量有空值")
        Index = Tables("weixin").FindRow(Row) \'找出此行在销售数据Table中的位置
        If Index > -1 Then \'如果找到此行
            Tables("weixin").Position = Index \'将焦点定位到此行
        End If
        Return
    End If
    MainTable = Tables("product") \'选择销售数据表作为主表.

End If
MainTable = Tables("product")
Tables("weixindanhao").addnew()