下面代码放到datacolchanged事件，不应该在
prepareedit、afteredit事件
If e.Col.Name = ("欠货数材料KG") Then
If e.Row("欠货数") > 0 Then
Dim a As DataRow
a = DataTables("产品表").Find("产品名称 = '" & e.Row("产品名称") & "'")
If a IsNot Nothing Then
e.Row("欠货数材料KG") = e.Row("欠货数") * (((a("产品重量g") + a("水口重量g")) * (1 - a("水口比例") / 100)) / 1000)
End If
Else
Dim b As Integer = 0
e.Row("欠货数材料KG") = b
End If
End If
If e.Col.Name = ("库存数材料KG") Then
If e.Row("库存数") > 0 Then
Dim a As DataRow
a = DataTables("产品表").Find("产品名称 = '" & e.Row("产品名称") & "'")
If a IsNot Nothing Then
e.Row("库存数材料KG") = e.Row("库存数") * (((a("产品重量g") + a("水口重量g")) * (1 - a("水口比例") / 100)) / 1000)
End If
Else
Dim b As Integer = 0
e.Row("库存数材料KG") = b
end if
End If
订单管理afteredit事件代码
If e.Col.Name = ("产品名称") Then
Dim a As DataRow
a = DataTables("产品表").Find("产品名称 = '" & e.Row("产品名称") & "'")
If a IsNot Nothing Then
e.Row("材料名称") = a("材料")
End If
End If
加好友 
发短信
Post By：2022/10/15 8:57:00 [显示全部帖子]
