Select Case e.DataCol.name Case "产品编号" Dim dr As DataRow = DataTables("库存").Find("产品编号 = '" & e.OldValue & "'") If dr Is Nothing Then dr = DataTables("库存").AddNew() dr("产品编号") = e.DataRow("产品编号") dr("5") = e.DataRow("1") dr("6") = e.DataRow("2") Else dr("产品编号") = e.DataRow("产品编号") End If Case "1","2" Dim dr As DataRow = DataTables("库存").Find("产品编号 = '" & e.DataRow("产品编号") & "'") If dr IsNot Nothing Then dr("5") = e.DataRow("1") dr("6") = e.DataRow("2") End If End Select
|