以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]切换合计模式  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=147442)

--  作者:hanlingli111999
--  发布时间:2020/3/17 9:09:00
--  [求助]切换合计模式
老师好,我想设计一个菜单,怎么点击一下执行一个程序,再点击则执行另一程序,反复如此。
--  作者:有点蓝
--  发布时间:2020/3/17 9:16:00
--  
按钮事件

if vars("a") then
vars("a") = false
执行一个程序
else
vars("a") = true
执行另一程序
end if

--  作者:hanlingli111999
--  发布时间:2020/3/17 9:21:00
--  
谢谢
--  作者:hanlingli111999
--  发布时间:2020/3/18 8:41:00
--  
老师,实在不好意思,你昨天给我的上述代码,我没有调试成功,
现把代码上传,看怎么整合:

Tables("订单").Cols("数量").GrandTotal = True \'指定要合计的列
Tables(
"订单").Cols("金额").GrandTotal = True
Tables(
"订单").GrandTotal = True \'显示合计模式

如果要关闭合计模式,将GrandTotal属性设置为False即可:

Tables("订单").GrandTotal = False


--  作者:有点蓝
--  发布时间:2020/3/18 9:33:00
--  
if Tables("订单").GrandTotal = True then
Tables("订单").GrandTotal = False
else
Tables("订单").Cols("数量").GrandTotal = True \'指定要合计的列
Tables(
"订单").Cols("金额").GrandTotal = True
Tables(
"订单").GrandTotal = True \'显示合计模式
end if 

--  作者:hanlingli111999
--  发布时间:2020/3/18 10:38:00
--  
谢谢