主题：用本地数据更新未加载sql数据表

Dim str As String = Tables("物料需求计划").Current("计划批号")
Dim cmd As New SQLCommand
For Each dr As DataRow In DataTables("物料需求计划").Select("计划批号 = '" & str & "'")
    cmd.CommandText = "UP DATE {SUGGESTION_PLAN} SET [QTY] = '" & dr("需求量") & "'  WHERE {SUGGESTION_PLAN}.[APS_DOC_NO]= '" & dr("APS单号") & "' And  {SUGGESTION_PLAN}.[MDS_VERSION_TIMES]='" & str & "'"
    cmd.ExecuteNonQuery()
Next

insert into 是插入一行数据，根本就没有where的语法。把where 和后面的内容删除。

如果你要更新某一条件下的某些数据，你应该用update语句