主题：菜单对象

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

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

你想做什么功能？直接说。

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 但是在菜单的 按钮里 不支持 ，所以咨询一下，

 

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

 

那你就检测然后提示或者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()