以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]这下面两段代码的运行，是失败的，求指导，谢谢！  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=131983)
--  作者：fengwenliuyan
--  发布时间：2019/3/11 0:02:00
--  [求助]这下面两段代码的运行，是失败的，求指导，谢谢！
编辑录入窗口中的“撤销修改”按钮，能否写成，对窗口中显示的这三个表同时进行判断？
代码只写了一段，是控制第一个表的控件的“撤销修改”功能：
With Tables("入库订单表")
    If .Current IsNot Nothing Then
        If MessageBox.Show("确定要 撤销修改 吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
            .Current.Reject()
        End If
    End If
End With
那么，下两个表，是不是可以写成是：
With Tables("入库明细表")
    If .Current IsNot Nothing Then
        If MessageBox.Show("确定要 撤销修改 吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
            .Current.Reject()
        End If
    End If
End With
With Tables("出库明细表")
    If .Current IsNot Nothing Then
        If MessageBox.Show("确定要 撤销修改 吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
            .Current.Reject()
        End If
    End If
End With
这下面两段代码的运行，是失败的，求指导，谢谢！


[此贴子已经被作者于2019/4/30 9:55:05编辑过]
--  作者：fengwenliuyan
--  发布时间：2019/3/11 9:57:00
--  
求助
--  作者：有点甜
--  发布时间：2019/3/11 10:38:00
--  

分清主表和窗口表啊，你表名写错了啊

 

http://www.foxtable.com/webhelp/scr/1906.htm