我已经在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
答案 0 :(得分:0)
你应该提供更多关于你的问题的信息,但我会猜测你正在期待这一行:
rsBranchEmp.Requery
重新显示您的数据,它不会单独执行(它仅从上一个查询中获取更新的记录集)。您将不得不重新填充用于显示更新记录集的数据的任何控件。