项通过按钮click用本地数据更新未加载sql数据表
Dim cmd As New SQLCo mmand
cmd.C
cmd.Comman dText = "UP DATE {SUGGESTION_PLAN} SET [QTY] = A.[需求量] from [数据库].[物料需求计划] As A WHERE [SUGGESTION_PLAN].[APS_DOC_NO]= [A].[APS单号] And [SUGGESTION_PLAN].[MDS_VERSION_TIMES]='2301-170928001-18-1-cs'"
cmd.ExecuteNonQuery()
Dim dt As Tables = Tables("物料需求计划")
Dim cmd As New SQLC ommand
cmd.C
cmd.CommandText = "UP DATE {SUGGESTION_PLAN} SET [QTY] = dt("需求量") WHERE [SUGGESTION_PLAN].[APS_DOC_NO]=dt("APS单号")And [SUGGESTION_PLAN].[MDS_VERSION_TIMES]='2301-170928001-18-1-cs'"
cmd.ExecuteNonQuery()