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
加好友 
发短信
Post By：2013/5/26 12:54:00 [只看该作者]
