以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]请问,以下控件按钮“打印”的代码应该怎么写?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=143453)

--  作者:fengwenliuyan
--  发布时间:2019/11/25 16:07:00
--  [求助]请问,以下控件按钮“打印”的代码应该怎么写?
请问,以下控件按钮“打印”的代码应该怎么写?

若“结算”列显示为“记账”或者“月结,且“打印”列为true的所有行,
单击控件按钮“打印”时,则打开“窗口1”。

若“结算”列显示为“现金”或内容为空,且“打印”列为false的所有行,
单击控件按钮“打印”时,则打开“窗口2”。


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



--  作者:有点蓝
--  发布时间:2019/11/25 16:21:00
--  
例如

Dim r As Row = Tables("出库表窗口_出库表").Current
If r IsNot Nothing Then
    If (r("结算") = "记账" OrElse r("结算") = "月结") AndAlso r("打印") = True
        Forms("窗口1").Open
elseIf (r("结算") = "现金" OrElse r.isnull("结算")) AndAlso r("打印") = false
        Forms("窗口2").Open
    End If
End If

--  作者:fengwenliuyan
--  发布时间:2019/11/25 16:29:00
--  回复:(有点蓝)例如Dim r As Row = Tables("出库表窗...
谢谢老师