|
Select e.DataCol.Name
Case "产品名称","产品规格","生产厂家","生产日期"
If e.DataRow.IsNull("产品名称") OrElse e.DataRow.IsNull("产品规格") OrElse e.DataRow.IsNull("生产厂家") OrElse e.DataRow.IsNull("生产日期")Then
Else
Dim fdr As DataRow = DataTables("产品出库统计").Find("产品名称 = '" & e.DataRow("产品名称") & "' and 产品规格 = '" & e.DataRow("产品规格") & "' and 生产厂家= '" & e.DataRow("生产厂家") & "' and 生产日期= '" & e.DataRow("生产日期") & "'")
If fdr Is Nothing Then
Dim nr As Row = Tables("产品出库统计").AddNew
nr("产品名称") = e.DataRow("产品名称")
nr("产品规格") = e.DataRow("产品规格")
nr("生产厂家") = e.DataRow("生产厂家")
nr("生产日期") = e.DataRow("生产日期")
End If
End If
End Select
|
加好友 
发短信
Post By：2015/1/18 11:01:00 [显示全部帖子]
