换个说法吧，有以下矛盾：在销售定单的窗口中有“提交“按钮，希望按下提交时能“保存”且“进度+1”，故在“提交”按钮的mouseup中用如下代码：
With Tables("销售定单主表")
Dim k As Byte = Tables("销售定单主表").current("进度序号")
If .Current IsNot Nothing And Tables("销售定单主表").current("进度序号")<7 Then '如果当前行未曾修改
k = k+1
Tables("销售定单主表").current("进度序号") = k
Tables("销售定单主表").Current.Save()
End If
End With
在正常的情况下，按下“提交”按钮后，“保存”和“进度+1”都能实现。比如，“进度=2”的销售定单，进入其中一列的窗口，在点击提交按钮后，进度序号会变成3，且销售定单会保存。
但假若对“销售定单主表”进行“进度”一列的筛选后，如筛选“进度=2”的销售定单，进入其中一列的窗口，在点击提交按钮后，进度序号会变成3，窗口自动关闭，但销售定单无法保存。
请问如何实现在进行筛选后，“保存”和“进度+1”都能实现
加好友 
发短信
Post By：2021/1/22 22:44:00 [显示全部帖子]
此主题相关图片如下：1.png
