主题：[求助]

表属性,列内容改变后执行

If e.DataCol.name = "产品" Then
   
    Dim dr As DataRow = DataTables("采购入库").find("产品名称='" & e.DataRow("纸张") & "'")
   
    If dr IsNot Nothing Then
       
        e.DataRow("成本价") = dr("采购单价")
       
    End If
   
End If