我在 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