[求助]菜单栏计算赋值给组合框 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有5660人关注过本帖树形打印复制链接主题：[求助]菜单栏计算赋值给组合框

fjlclxj

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

fjlclxj

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：小狐帖子：321 积分：2468 威望：0 精华：2 注册：2013/1/16 19:33:00

Post By：2013/5/26 14:16:00 [显示全部帖子]

可以，先判断选择哪个产品类型，然后显示该产品类型的规格分组，隐藏其余规格分组。

然后，根据显示的规格分组内参数进行计算即可。

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