Select Case e.DataCol.Name
Case "产品编号"
If e.DataRow.IsNull("产品编号") Then
e.DataRow("色号") = Nothing
e.DataRow("等级") = Nothing
e.DataRow("出库") = Nothing
Else
Dim dr As DataRow
dr = DataTables("记帐本").Find("产品编号 = " & "'" & e.DataRow("产品编号") & "'" )
If dr IsNot Nothing '如果找到, 则设置各列内容
e.DataRow("色号")= dr("色号")
e.DataRow("等级")= dr("等级")
End If
End If
End Select