没有办法直接修改，只能遍历所有行逐行使用sql处理
Dim cmd As new SQLCommand
cmd.ConnectionName = "数据源名称"
for each r as row in tables("xxx").rows
if r.datarow.rowstate = DataRowState.Added then
cmd.CommandText = "Insert Into 订单 (客户, 日期, 订单编号) Values(?,?,?)"
cmd.Parameters.clear
cmd.Parameters.Add("@客户",r("客户"))
cmd.Parameters.Add("@日期",r("日期"))
cmd.Parameters.Add("@订单编号",r(订单编号"))
cmd.ExecuteNonQuery
elseif r.datarow.rowstate = DataRowState.Modified then
cmd.CommandText = "UPDATE 订单 SET 客户 = ?,日期=? WHERE [_idntify] = ?"
cmd.Parameters.clear
cmd.Parameters.Add("@客户",r("客户"))
cmd.Parameters.Add("@日期",r("日期"))
cmd.Parameters.Add("@idntify",r("_idntify"))
cmd.ExecuteNonQuery
else.....
next
加好友 
发短信
Post By：2021/7/3 17:16:00 [显示全部帖子]
