- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 求助 工序价格参照表如何编写代码 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=45783)
-- 发布时间：2014/2/10 22:56:00
-- 求助 工序价格参照表如何编写代码
各位老师，我想在“工序”表里先根据物品、工序、型号、尺寸4列来设定“工价”这一列，而在“生产录入”表里呢，只要选择
了物品、工序、型号、尺寸这4 列以后，它在“工序”表里已经设定好的对应的工价就会自动得到。我用了目录树可以得到这样的效果，
但是，如果以代码的形式是怎么个写法的思路呢？还有什么更好的方法呢？请教各位大侠，感谢帮助！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:计件工资系统.rar |
-- 发布时间：2014/2/10 23:10:00
--
用下面的代码，写到datacolchanged事件里去
Select Case e.DataCol.Name
Case "工序", "型号", "物品", "尺寸"
If e.DataRow.IsNull("工序") = False AndAlso e.DataRow.IsNull("型号") = False AndAlso e.DataRow.IsNull("物品") = False AndAlso e.DataRow.IsNull("尺寸") = False Then
Dim fdr As DataRow = DataTables("工序").Find("工序 = \'" & e.DataRow("工序") & "\' and 型号 = \'" & e.DataRow("型号") & "\' and 物品 = \'" & e.DataRow("物品") & "\' and 尺寸 = \'" & e.DataRow("尺寸") & "\'")
If fdr IsNot Nothing Then
e.DataRow("工价") = fdr("工价")
End If
End If
End Select
-- 发布时间：2014/2/11 8:39:00
--
非常感谢有点甜大师，正解！