以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教老师  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=131645)
--  作者：outcat
--  发布时间：2019/3/3 22:44:00
--  请教老师

If Tables("赊销销砖总表").Current IsNot Nothing Then
   MessageBox.Show("请选择需要核销的账单","提示")
    For Each r As Row In Tables("赊销销砖总表").Rows

        r("核销") = r("对账")
        r.save
    Next
   
Else
    MessageBox.Show("无核销记录","提示")
End If

Tables("赊销销砖总表").Filter = "核销 = false"

 

 

老师， MessageBox.Show("请选择需要核销的账单","提示")  这条语句，在执行完操作了，再次弹出这个提示，前看看哪块不对了。
--  作者：有点甜
--  发布时间：2019/3/3 22:58:00
--  

1、你代码写在什么地方？

 

2、能否做个例子发上来测试？
--  作者：outcat
--  发布时间：2019/3/4 16:01:00
--  

请看一下
--  作者：outcat
--  发布时间：2019/3/4 16:05:00
--  
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目3.foxdb


我希望点了，对账之后，点核销，核销完了之后就退出，而不是再循环回来提示 “请选择需要核销的账单”
--  作者：有点蓝
--  发布时间：2019/3/4 17:26:00
--  
 MessageBox.Show("请选择需要核销的账单","提示")  这句代码直接删除即可