0

我在 vb6.0 中开发了一个表格并放了 sstab。现在,当我从一个选项卡中删除一条记录时,我感到很震惊。下面的代码是我尝试一次性删除选项卡上存在的所有记录!

Private Sub CmdDelete_Click()
 On Error GoTo ErrTrap 
Dim QRY As String 
' If bolNewRec Then Exit Sub 
If MsgBox("Are you sure to delete the current employee details?", vbYesNo) = vbNo Then Exit Sub 
QRY = "Delete from ac_branch_employees where gl_code = '" & GLCode & "' and sl_code = '" & SLCode & "'" 
ConnHalo.Execute QRY 
rsBranchEmp.Requery 
Screen.MousePointer = ccDefault

cmdNew_Click

Exit Sub
ErrTrap: ErrorHandle End Sub

视觉基础-6

4

1 回答 1

0

你真的应该提供更多关于你的问题的信息,但我会猜测你期待这条线:

rsBranchEmp.Requery 

重新显示您的数据,它不会单独执行(它仅从上一个查询中获取更新的记录集)。您将不得不重新填充您使用的任何控件,以使用更新的记录集显示数据。

于 2013-06-25T13:43:19.287 回答