Dim dr As DataRow = e.DataRow Select Case e.DataCol.Name Case "入库数量1","入库数量","单个克重" If dr.IsNull("入库数量") OrElse dr.IsNull("单个克重") Then dr("入库数量1") = Nothing Else dr("入库数量1") = dr("入库数量") * dr("单个克重") End If End Select If e.DataCol.Name = "材料名" Then Dim dr As DataRow = DataTables("入录资料").Find("原材料 = " & "'" & e.DataRow("材料名") & "'" ) If dr IsNot Nothing e.DataRow("材料代号")= dr("代号") e.DataRow("单位")= dr("单位") e.DataRow("规格")= dr("规格") e.DataRow("单个克重")= dr("单个克重") End If End If
请帮我看一下以上的代码有哪里需要修改.因为现在的这个代码不能用.
1)入库数量1=入库数量*单个克重(单个克重不输的时候显示为值"2" 2)当我输入"材料名"时,主表里能自动调用"入录资料"表中的"代号","单位" "规格" 及"单个克重"
|