老师  我们想要做到结案列同步更新 以下代码是写在菜单按钮上的 请问如何修改下述代码

With MainTable

老师  我们想要做到结案列同步更新 以下代码是写在菜单按钮上的 请问如何修改下述代码

With MainTable
If MainTable.Current("pz") <> Nothing Then
Select Case _UserLevel
   Case "经理","主管"
     MainTable.Current("jiean") = True
     MainTable.Current.Save()
     MessageBox.show("结案成功!")
     Dim cmd As New SQLCommand
     cmd.Connection-Name = "Data"
     cmd.CommandText = "u-pdate {销售填写表} set jiean = True where {销售填写表}.xuhao = xuhao"
     cmd.ExecuteNonQuery
  Case Else
    MessageBox.show("你无结案权限!")
 End Select
 Else
    MessageBox.show("此项未批准,不允许结案操作!")
End If
End With

老师主要是如下的代码，我们想实现  {销售填写表}和当前表 的“jiean”列中的值同步，  我们是以 “xuhao”来匹配;

Dim cmd As New SQLCommand
     cmd.Connection-Name = "Data"
     cmd.CommandText = "u-pdate {销售填写表} set jiean = True where {销售填写表}.xuhao = xuhao"
     cmd.ExecuteNonQuer

老师，OK了，

但是同步表的加载如何写？

当前行是 更新了，但是{销售填写表}没有加载。

是否是这样写：

Tables("销售填写表").Load()

If DataTables.Contains("销售填写表") = False Then

    DataTables.Load("销售填写表")

End If

DataTables("销售填写表").LoadFilter = ""

DataTables("销售填写表").Load

谢谢，