SQLFind出来的是一个独立的行,和原表没有什么关系,需要单独保存
Dim dr As DataRowIf Tables("表A").Rows(0)("序号") = 1 Then '判断是否加载了序号为1的列 dr = DataTables("表A").Find("[序号] = 1") If dr IsNot Nothing Then dr("第三列") = "直接赋值" End IfElse dr = DataTables("表A").SQLFind("[序号] = 1") If dr IsNot Nothing Then dr("第二列") = "后台赋值"dr.save
End If
End If
DataTables("表A").Save