主题：[求助]

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

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