主题：[求助]

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

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

 没看懂你代码想表达什么意思，save的时候，就保存到数据库里面了啊。

 

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

 

 

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

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

老师，OK了，

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

 

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

 

是否是这样写：

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

 

 

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

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

End If

 

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

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

谢谢，