DataColChanged事件:
If e.DataCol.Name = "余光膜净重" Then
Dim lsh As String = e.DataRow("流水号")
If lsh.Contains("-") Then
lsh = lsh.SubString(0,lsh.LastIndexOf("-"))
Dim dr As DataRow = e.DataTable.Find("流水号 = '" & lsh & "'")
If dr IsNot Nothing Then
If dr("余光膜净重") > 0 Then
dr("余光膜净重") = e.DataRow("余光膜净重")
End If
End If
End If
End If