Foxtable(狐表)用户栏目专家坐堂 → 求项目中的“客户表窗口”、“现金打印窗口”中的“打印”、“已打印_现金”按钮的代码?


  共有2583人关注过本帖树形打印复制链接

主题:求项目中的“客户表窗口”、“现金打印窗口”中的“打印”、“已打印_现金”按钮的代码?

帅哥哟,离线,有人找我吗?
fengwenliuyan
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:901 积分:8247 威望:0 精华:0 注册:2012/10/19 13:55:00
求项目中的“客户表窗口”、“现金打印窗口”中的“打印”、“已打印_现金”按钮的代码?  发帖心情 Post By:2019/4/4 20:30:00 [只看该作者]

效果:
1、点选“客户表窗口_客户表”中的“现金”、“记账”、“月结”3个中的任意一个,再点击上方的“打印”按钮,
则进入“现金打印窗口”、“记账打印窗口”、“月结打印窗口”3个中的对应一个窗口,
2、然后进入窗口后,点击里面对应的“现金打印”、“记账打印”、“月结打印”,
则本次点选的“客户表窗口_客户表”中的“现金”、“记账”、“月结”3个中的一个的逻辑为false,
3、且相应的“已打印_现金”、“已打印_记账”、“已打印_月结”的逻辑为false,
4、若点选的“客户表窗口_客户表”中的“现金”、“记账”、“月结”3个中的个数不为1,即:未选或多选,
则点击上方的“打印”按钮,无效。

求项目中的“客户表窗口”、“现金打印窗口”中的“打印”、“已打印_现金”按钮的代码?

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.zip



 回到顶部
帅哥哟,离线,有人找我吗?
fengwenliuyan
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:901 积分:8247 威望:0 精华:0 注册:2012/10/19 13:55:00
  发帖心情 Post By:2019/4/4 21:26:00 [只看该作者]

求帮助

 回到顶部
帅哥哟,离线,有人找我吗?
fengwenliuyan
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:901 积分:8247 威望:0 精华:0 注册:2012/10/19 13:55:00
  发帖心情 Post By:2019/4/4 22:16:00 [只看该作者]

再次求帮助

 回到顶部
帅哥哟,离线,有人找我吗?
fengwenliuyan
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:901 积分:8247 威望:0 精华:0 注册:2012/10/19 13:55:00
  发帖心情 Post By:2019/4/5 9:23:00 [只看该作者]

继续求帮助

 回到顶部
帅哥哟,离线,有人找我吗?
fengwenliuyan
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:901 积分:8247 威望:0 精华:0 注册:2012/10/19 13:55:00
  发帖心情 Post By:2019/4/5 15:31:00 [只看该作者]

求帮助

 回到顶部
帅哥哟,离线,有人找我吗?
fengwenliuyan
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:901 积分:8247 威望:0 精华:0 注册:2012/10/19 13:55:00
  发帖心情 Post By:2019/4/5 19:45:00 [只看该作者]

求帮助

 回到顶部
帅哥哟,离线,有人找我吗?
fengwenliuyan
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:901 积分:8247 威望:0 精华:0 注册:2012/10/19 13:55:00
  发帖心情 Post By:2019/4/6 9:14:00 [只看该作者]

求帮助


 回到顶部
帅哥哟,离线,有人找我吗?
fengwenliuyan
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:901 积分:8247 威望:0 精华:0 注册:2012/10/19 13:55:00
  发帖心情 Post By:2019/4/6 10:39:00 [只看该作者]

求帮助


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107896 积分:548849 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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

 回到顶部
帅哥哟,离线,有人找我吗?
fengwenliuyan
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:901 积分:8247 威望:0 精华:0 注册:2012/10/19 13:55:00
回复:(有点蓝)1、4:Dim r As Row = Tables("客户表...  发帖心情 Post By:2019/4/6 17:06:00 [只看该作者]

4、若点选的“客户表窗口_客户表”中的“现金”、“记账”、“月结”3个中的个数不为1,即:未选或多选则点击上方的“打印”按钮,无效。
这第四条的若多选,则无效,怎么设置?

 下载信息  [文件大小:   下载次数: ]
点击浏览该文件:仓管区04061025.zip



 回到顶部
总数 13 1 2 下一页