专家坐堂-求助...CLOSE附近有语法错误...找不到问题啊....Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

-- 求助...CLOSE附近有语法错误...找不到问题啊....

Dim str As String = Tables("订单").Current("订单号")

Dim 订单ID As String = Tables("订单").current("ID")

Dim 客户ID As String = Tables("订单").current("客户ID")

Dim cmd As New SQLCommand

cmd.c

Dim i As Integer = 0

For Each dr As DataRow In DataTables("订单明细").Select("订单号 = \'" & str & "\'")

Dim qr As DataRow = DataTables("ERP品号").find("品号 = \'" & dr("品号") & "\'")

If dr("供货类型")="3" Then

cmd.CommandText = "In sert Into {SALES_ORDER_DOC_SD}(SequenceNumber,SALES_ORDER_DOC_SD_ID,SALES_ORDER_DOC_D_ID,PLAN_DELIVERY_DATE,PLAN_SHIP_DATE,BUSINESS_QTY,PRICE_QTY,INVENTORY_QTY,SHIP_TO_CUSTOMER_ID,CLOSE,TRANSFER_PURCHASE_STATUS,PLAN_STATUS,DIRECT_SHIP,DELIVERY_PLANT_ID,SETT_COMPANY_ID,SUPPLY_CENTER_ID,DELIVERY_PARTNER_ID_RTK,DELIVERY_PARTNER_ID_ROid,DELIVERY_TYPE) Values(\'1\',newid(),\'" & dr("DID") & "\',\'" & dr("交货日期") & "\',\'" & dr("交货日期") & "\',\'" & dr("数量") & "\',\'" & dr("数量") & "\',\'" & dr("数量") & "\',\'" & 客户ID & "\',\'0\',\'N\',\'1\',\'TRUE\',\'4d51c226-b05f-46f1-542d-113804040690\',\'9e006dcf-173a-4ac2-a3cb-113803de8682\',\'5512b4fd-2eb9-41c8-3ca7-113804764d60\',\'SUPPLIER\',\'20f0516c-79b3-4e81-1b60-12baec5e63df\',\'3\')"

cmd.ExecuteNonQuery()

Else If dr("供货类型")="1" Or dr("供货类型")="2" Then

cmd.CommandText = "In sert Into {SALES_ORDER_DOC_SD}(SequenceNumber,SALES_ORDER_DOC_SD_ID,SALES_ORDER_DOC_D_ID,PLAN_DELIVERY_DATE,PLAN_SHIP_DATE,BUSINESS_QTY,PRICE_QTY,INVENTORY_QTY,SHIP_TO_CUSTOMER_ID,CLOSE,TRANSFER_PURCHASE_STATUS,PLAN_STATUS,DIRECT_SHIP,DELIVERY_PLANT_ID,SETT_COMPANY_ID,DELIVERY_PARTNER_ID_RTK,DELIVERY_PARTNER_ID_ROid,DELIVERY_TYPE) Values(\'1\',newid(),\'" & dr("DID") & "\',\'" & dr("交货日期") & "\',\'" & dr("交货日期") & "\',\'" & dr("数量") & "\',\'" & dr("数量") & "\',\'" & dr("数量") & "\',\'" & 客户ID & "\',\'0\',\'N\',\'1\',\'TRUE\',\'4d51c226-b05f-46f1-542d-113804040690\',\'9e006dcf-173a-4ac2-a3cb-113803de8682\',\'PLANT\',\'4d51c226-b05f-46f1-542d-113804040690\',\'1\')"

cmd.ExecuteNonQuery()

messagebox.Show("已更新", "提示")

End If

i=i+1

messagebox.Show("报告领导!总共更新\'" & i & "\'行数据!", "o(*^@^*)o")