- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]菜单栏计算赋值给组合框 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=33863)
-- 发布时间：2013/5/26 9:21:00
-- [求助]菜单栏计算赋值给组合框
此主题相关图片如下：tm截图未命名.jpg
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目2.rar |
菜单栏里有规格栏，长和宽
我想点报价按钮以后算出写真规格的结果并把结果显示在报价的组合框里
如果数量里面有数量哪价格也要*数量的(长*宽*（价格12）)*数量
此主题相关图片如下：tm截图未命名1.jpg
此主题相关图片如下：tm截图未命名2.jpg
-- 发布时间：2013/5/26 12:54:00
--
If Forms("窗口1").Opened=False Then Forms("窗口1").show
Dim c As Decimal =val( RibbonTabs("我的工作台").Groups("写真规格").Items("长度").Text)
Dim k As Decimal =val( RibbonTabs("我的工作台").Groups("写真规格").Items("宽度").Text)
Dim n As Integer =val(RibbonTabs("我的工作台").Groups("报价").Items("数量").value)
Dim bj As Decimal =val(RibbonTabs("我的工作台").Groups("报价").Items("报价").value)
\'此处加入对各参数是否有效的判断
bj=(c*k*12)*iif(n=Nothing,1,n)
RibbonTabs("我的工作台").Groups("报价").Items("报价").value=bj
Forms("窗口1").Controls("NumericComboBox1").value= bj
-- 发布时间：2013/5/26 13:37:00
--
If Forms("窗口1").Opened=False Then Forms("窗口1").show
为什么要加这句话？
我想报完价以后在打开这个窗口，但报价出来的值还是可以给这个窗口的
-- 发布时间：2013/5/26 13:42:00
--
此主题相关图片如下：3333.jpg
-- 发布时间：2013/5/26 14:15:00
--
呵呵 我笑了
-- 发布时间：2013/5/26 14:16:00
--
可以，先判断选择哪个产品类型，然后显示该产品类型的规格分组，隐藏其余规格分组。
然后，根据显示的规格分组内参数进行计算即可。
-- 发布时间：2013/5/26 14:23:00
--
对呀 就是照着你的例子在做的
隐藏和显示菜单已经设计出来了 就是里面的这些报价系统还没有搞定啊
请教帮助里没有木有啊
-- 发布时间：2013/5/26 14:29:00
--
老大能不能给你菜单栏的模版
我是试用版的
-- 发布时间：2013/5/26 14:36:00
--
此主题相关图片如下：323.jpg
hanxuntx 这里的模块都出错了