这样试试: Dim dr,dr1 As DataRow dr = e.DataRow Select Case e.DataCol.Name Case "入库数量","单个克重" If dr.IsNull("入库数量") Then dr("入库数量1") = Nothing Else if dr.IsNull("单个克重") Then dr("入库数量1") = 2 Else dr("入库数量1") = dr("入库数量") * dr("单个克重") End if End If Case "材料名" dr1 = DataTables("入录资料").Find("原材料 = '" & dr("材料名") & "'" ) If dr1 IsNot Nothing dr("材料代号")= dr("代号") dr("单位")= dr("单位") dr("规格")= dr("规格") dr("单个克重")= dr("单个克重") End If End Select
|