- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求项目中的“客户表窗口”、“现金打印窗口”中的“打印”、“已打印_现金”按钮的代码？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=133048)
-- 发布时间：2019/4/4 20:30:00
-- 求项目中的“客户表窗口”、“现金打印窗口”中的“打印”、“已打印_现金”按钮的代码？
效果：
1、点选“客户表窗口_客户表”中的“现金”、“记账”、“月结”3个中的任意一个，再点击上方的“打印”按钮，
则进入“现金打印窗口”、“记账打印窗口”、“月结打印窗口”3个中的对应一个窗口，
2、然后进入窗口后，点击里面对应的“现金打印”、“记账打印”、“月结打印”，
则本次点选的“客户表窗口_客户表”中的“现金”、“记账”、“月结”3个中的一个的逻辑为false，
3、且相应的“已打印_现金”、“已打印_记账”、“已打印_月结”的逻辑为false，
4、若点选的“客户表窗口_客户表”中的“现金”、“记账”、“月结”3个中的个数不为1，即：未选或多选，
则点击上方的“打印”按钮，无效。
求项目中的“客户表窗口”、“现金打印窗口”中的“打印”、“已打印_现金”按钮的代码？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.zip |
-- 发布时间：2019/4/4 21:26:00
--
求帮助
-- 发布时间：2019/4/4 22:16:00
--
再次求帮助
-- 发布时间：2019/4/5 9:23:00
--
继续求帮助
-- 发布时间：2019/4/5 15:31:00
--
求帮助
-- 发布时间：2019/4/5 19:45:00
--
求帮助
-- 发布时间：2019/4/6 9:14:00
--
求帮助
-- 发布时间：2019/4/6 10:39:00
--
求帮助
-- 发布时间：2019/4/6 11:43:00
--
1、4：
Dim r As Row = Tables("客户表窗口_客户表").Current
If r Is Nothing Then Return
If r("现金") = True Then
Forms("现金打印窗口").open
ElseIf r("记账") = True Then
Forms("记账打印窗口").open
ElseIf r("月结") = True Then
Forms("月结打印窗口").open
End If
2、3：现金打印窗口按钮，其他窗口自己参考做
If Forms("客户表窗口").Open
Dim r As Row = Tables("客户表窗口_客户表").Current
If r Is Nothing Then Return
r("现金") = False
r("已打印_现金") = True
End If
-- 发布时间：2019/4/6 17:06:00
-- 回复：（有点蓝）1、4：Dim r As Row = Tables("客户表...
4、若点选的“客户表窗口_客户表”中的“现金”、“记账”、“月结”3个中的个数不为1，即：未选或多选，则点击上方的“打印”按钮，无效。
这第四条的若多选，则无效，怎么设置？
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:仓管区04061025.zip |