Select Case e.DataCol.name Case "设备编号","保管部门","设备名称","所属系统","单价","品牌" If e.DataRow("设备编号") <> Nothing AndAlso e.DataRow("保管部门") <> Nothing Then Dim dr As DataRow = DataTables("仓库台账").Find("设备编号 = '" & e.DataRow("设备编号") & "' and 保管部门 = '" & e.DataRow("保管部门") & "'") If dr Is Nothing Then dr = DataTables("仓库台账").AddNew() End If dr("设备名称") = e.DataRow("设备名称") dr("设备编号") = e.DataRow("设备编号") dr("所属系统") = e.DataRow("所属系统") dr("单价") = e.DataRow("单价") dr("保管部门") = e.DataRow("保管部门") dr("品牌") = e.DataRow("品牌") End If End Select
|