以下是引用狐狸爸爸在2011-5-22 17:34:00的发言:
楼主你提问要养成一个好习惯,除了图片,还应该直接将表传上来,这样大家可以直接帮你设置好代码。
否则人家要帮助你,还得先建两个表,输入测试数据,毕竟每个人写代码都不是一气呵成的,都需要测试的。
没有表测试,我只能大概给你写一下,放在产值表的DataColChanged事件:
Select case e.DataCol.Name
Case "产品名称","工序号"
Dim dr As DataRow = DataTables("产品").Find("产品名称 = '" & e.DAtaRow("产品名称") & "'")
If dr IsNot Nothing And e.Datarow("工序号") > "" Then
e.DataRow("工序产值") = dr(e.DataRow("工序号") & "产值")
End if
End Select
另:lihe60回帖不要那么随便,以免给新同学带来困惑。
谢谢狐狸爸爸,以后一定改了,你的代码我测试了还是错误,请帮忙在查看下!
[此贴子已经被作者于2011-5-22 17:43:02编辑过]