回写数据至sql数据库 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

求一段代码或者思路：
图片点击可在新窗口打开查看

此主题相关图片如下：qq截图20170729142819.png

如图，这是一个数据表，通过以下代码（按钮）实现“数据从数据库导入”，现在需要针对光标选中的行和红框内的数据，判断是否更，如果是的话把对应的数据“更新至后台数据库”（按钮）

Dim cmd As New SQLCommand

Dim dt As DataTable

Dim sCols() As String = {"APS_DOC_NO","计划批号","需求单号","计划类型","发放时间","需求时间","品号","品名","图号","材质","规格","计划数量","需求量","已发放","本次发放数量","单位","库存量","备注","供应商","投料尺寸"}

Dim dCols() As String = {"APS单号","计划批号","需求单号","计划类型","发放时间","需求时间","品号","品名","图号","材质","规格","计划数量","需求量","已发放","本次发放数量","单位","库存量","备注","供应商","投料尺寸"}

cmd.C

cmd.CommandText = "Sele ct top 800 APS_DOC_NO,MDS_VERSION_TIMES As [计划批号],DEMAND AS [需求单号],PLAN_TYPE As [计划类型],convert(datetime ,DEMAND_DATE,120) AS [需求时间],DOC_DATE AS [发放时间],PLAN_SUGGESTED_QTY AS[计划数量],QTY AS[需求量],RELEASED_QTY AS [已发放], CURRENT_RELEASE_QTY AS [本次发放数量],{UNIT}.[UNIT_NAME] AS [单位],{SUGGESTION_PLAN}.[REMARK] AS [备注],ITEM_CODE AS [品号],ITEM_NAME AS [品名],SHORTCUT AS [材质],ITEM_SPECIFICATION AS [规格],DRAWING_NO AS [图号],[INVENTORY_QTY] As [库存量], {ITEM}.UDF026 As [投料尺寸],[SUPPLIER_NAME] As [供应商] From ((({SUGGESTION_PLAN} Inner JOIN {ITEM} ON {ITEM}.[ITEM_BUSINESS_ID] = {SUGGESTION_PLAN}.[ITEM_ID]) LEFT JOIN {SUPPLIER} ON {SUPPLIER}.[SUPPLIER_BUSINESS_ID] = {SUGGESTION_PLAN}.[SUGGEST_SUPPLIER_ID])Inner JOIN {UNIT} ON {UNIT}.[UNIT_ID] = {SUGGESTION_PLAN}.[UNIT_ID])Inner JOIN {INV_COST_BAL} ON {INV_COST_BAL}.[ITEM_ID] = {SUGGESTION_PLAN}.[ITEM_ID] ORDER BY [DOC_DATE] Desc"

dt = cmd.ExecuteReader()

For Each dr As DataRow In dt.DataRows

Dim t As DataRow= DataTables("物料需求计划").Find("APS单号 = '" & dr(sCols(0)) & "'")

If t Is Nothing Then '如果不存在同编号的订单

t = DataTables("物料需求计划").AddNew()

End If

For i As Integer =0 To sCols.Length -1

t(dCols(i)) = dr(sCols(i))

dt.save

主题：回写数据至sql数据库