关于卡死,是你这个代码的问题
select case e.datacol.name
case "数量",“单价”
e.datarow("金额") = e.datarow("数量")*e.datarow("单价")
DataTables("入库表").DataCols("编号").RaiseDataColChanged()
end select
应该改为:
select case e.datacol.name
case "数量",“单价”
e.datarow("金额") = e.datarow("数量")*e.datarow("单价")
Dim pr As DataRow = e.Datarow.GetParentRow("入库表")
if pr Isnot Nothing then
DataTables("入库表").DataCols("编号").RaiseDataColChanged(pr)
End if
end select