不晓得代码哪里有问题，加载的时候会出现重复加载的问题。下面加粗的代码不是应该排除了单号和序号都相同的数据了么，可是实际上如果有1个字段的内容不一样，也会被当做新的行加载进来。求助..
此主题相关图片如下：qq截图20171014185835.png
Dim cmd As New SQLCommand
Dim dt As DataTable
Dim sCols() As String = {"DOC_NO","SequenceNumber","DOC_DATE","CUSTOMER_ORDER_NO","项目单位","PLAN_SHIP_DATE","DELIVERY_TYPE","PLAN_STATUS","CLOSE","明细状态","ITEM_CODE","ITEM_NAME","DRAWING_NO","ITEM_SPECIFICATION","客户要求产品型号","客户要求产品名称","BUSINESS_QTY","DELIVER_BUSINESS_QTY","REMARK","客户材质","SHORTCUT"}
Dim dCols() As String = {"需求单号","序号","单据日期","客户单号","项目单位","预计发货日期","供货类型","计划状态","订单状态","明细状态","品号","品名","图号","规格","客户要求产品型号","客户要求产品名称","业务数量","已发货数量","备注","客户材质","材质"}
cmd.C
cmd.CommandText = "Se/ect top 200 {SALES_ORDER_DOC}.[CLOSE],{SALES_ORDER_DOC_D}.[REMARK],{ITEM}.[ITEM_SPECIFICATION],{SALES_ORDER_DOC_D}.[SequenceNumber],{SALES_ORDER_DOC_D}.[UDF024] as [项目单位],{SALES_ORDER_DOC_D}.[UDF026]as [客户要求产品名称],{SALES_ORDER_DOC_D}.[UDF025]as [客户要求产品型号], [DOC_NO],[DOC_DATE],[CUSTOMER_ORDER_NO],[PLAN_SHIP_DATE],[PLAN_STATUS],[DELIVER_BUSINESS_QTY],[DELIVERY_TYPE],{SALES_ORDER_DOC_SD}.[BUSINESS_QTY],{SALES_ORDER_DOC_SD}.[CLOSE]AS [明细状态],[ITEM_CODE],[ITEM_NAME],[DRAWING_NO],[SALES_ORDER_DOC_D].[UDF022] AS [客户材质],[SHORTCUT] From (({SALES_ORDER_DOC_D} Inner JOIN {ITEM} ON {ITEM}.[ITEM_BUSINESS_ID] = {SALES_ORDER_DOC_D}.[ITEM_ID]) left JOIN {SALES_ORDER_DOC} ON {SALES_ORDER_DOC}.[SALES_ORDER_DOC_ID] = {SALES_ORDER_DOC_D}.[SALES_ORDER_DOC_ID]) Inner JOIN {SALES_ORDER_DOC_SD} ON {SALES_ORDER_DOC_SD}.[SALES_ORDER_DOC_D_ID] = {SALES_ORDER_DOC_D}.[SALES_ORDER_DOC_D_ID] where {SALES_ORDER_DOC_D}.[ApproveStatus] = 'Y' order by [DOC_DATE] DESC"
dt = cmd.ExecuteReader()
For Each dr As DataRow In dt.DataRows
Dim t As DataRow= DataTables("销售订单").Find("需求单号 = '" & dr(sCols(0)) & "' and 序号 = '" & dr(scols(1)) &"'")
If t Is Nothing Then '如果不存在同编号的订单
t = DataTables("销售订单").AddNew()
For i As Integer =0 To sCols.Length -1
t(dCols(i)) = dr(sCols(i))
Next
End If
Next
[此贴子已经被作者于2017/10/14 19:06:25编辑过]
加好友 
发短信
Post By：2017/10/14 19:01:00 [只看该作者]
