Foxtable(狐表)用户栏目专家坐堂 → [求助]菜单栏计算赋值给组合框


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

主题:[求助]菜单栏计算赋值给组合框

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


加好友 发短信
等级:童狐 帖子:266 积分:1700 威望:0 精华:0 注册:2013/5/5 17:46:00
[求助]菜单栏计算赋值给组合框  发帖心情 Post By:2013/5/26 9:21:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:tm截图未命名.jpg
图片点击可在新窗口打开查看

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

菜单栏里有规格栏,长和宽

我想点报价按钮以后算出写真规格的结果并把结果显示在报价的组合框里

如果数量里面有数量哪价格也要*数量的(长*宽*(价格12))*数量


图片点击可在新窗口打开查看此主题相关图片如下:tm截图未命名1.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:tm截图未命名2.jpg
图片点击可在新窗口打开查看

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


加好友 发短信
等级:小狐 帖子:321 积分:2468 威望:0 精华:2 注册:2013/1/16 19:33:00
  发帖心情 Post By: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

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


加好友 发短信
等级:童狐 帖子:266 积分:1700 威望:0 精华:0 注册:2013/5/5 17:46:00
  发帖心情 Post By:2013/5/26 13:37:00 [只看该作者]

If Forms("窗口1").Opened=False Then Forms("窗口1").show

为什么要加这句话?

我想报完价以后在打开这个窗口,但报价出来的值还是可以给这个窗口的


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


加好友 发短信
等级:童狐 帖子:266 积分:1700 威望:0 精华:0 注册:2013/5/5 17:46:00
  发帖心情 Post By:2013/5/26 13:42:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:3333.jpg
图片点击可在新窗口打开查看

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


加好友 发短信
等级:九尾狐 帖子:2609 积分:16926 威望:0 精华:11 注册:2011/9/20 16:13:00
  发帖心情 Post By:2013/5/26 14:15:00 [只看该作者]

呵呵 我笑了

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


加好友 发短信
等级:小狐 帖子:321 积分:2468 威望:0 精华:2 注册:2013/1/16 19:33:00
  发帖心情 Post By:2013/5/26 14:16:00 [只看该作者]

可以,先判断选择哪个产品类型,然后显示该产品类型的规格分组,隐藏其余规格分组。
然后,根据显示的规格分组内参数进行计算即可。

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


加好友 发短信
等级:童狐 帖子:266 积分:1700 威望:0 精华:0 注册:2013/5/5 17:46:00
  发帖心情 Post By:2013/5/26 14:23:00 [只看该作者]

对呀 就是照着你的例子在做的图片点击可在新窗口打开查看

隐藏和显示菜单已经设计出来了 就是里面的这些报价系统还没有搞定啊

请教帮助里没有木有啊图片点击可在新窗口打开查看


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


加好友 发短信
等级:童狐 帖子:266 积分:1700 威望:0 精华:0 注册:2013/5/5 17:46:00
  发帖心情 Post By:2013/5/26 14:29:00 [只看该作者]

老大能不能给你菜单栏的模版图片点击可在新窗口打开查看我是试用版的

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


加好友 发短信
等级:童狐 帖子:266 积分:1700 威望:0 精华:0 注册:2013/5/5 17:46:00
  发帖心情 Post By:2013/5/26 14:36:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:323.jpg
图片点击可在新窗口打开查看
hanxuntx 这里的模块都出错了

 回到顶部