我想做一个报价的程序,表属性事件数据项的代码问题,我先把所有规格跟相对应的价格都输入到参数的表格内,当镀锌阀成本计算表格的宽跟高有变动时会自动抽取镀锌阀成本参数表内对应规格的价格显示到阀体单价一栏内。如果只变动一个参数宽或者高,这个代码我会写,现在是两个参数宽跟高都要变化才能准确的显示相对应的价格(因为宽或者高参数是复式)。求各位大侠帮我看看这个该怎么写,谢谢!
If e.DataCol.Name = "宽" Then '发生变化的是宽吗?
'在镀锌阀成本参数找出宽
Dim dr As DataRow
dr = DataTables("镀锌阀成本参数").Find("宽 = " & "'" & e.DataRow("宽") & "'" )
If dr IsNot Nothing '如果找到, 则设置各列内容
e.DataRow("阀体单价")= dr("价格")
Else
'否则清除阀体单价的内容
e.DataRow("阀体单价") = Nothing
End If
End If
这是单项宽变换时的代码,现在要宽高两个参数都变化,改怎么写呢!求高手帮忙,谢谢!