Private Sub Delete_mouseClick() On Error Resume Next If Adodc1.Recordset.RecordCount = 0 Then MsgBox "结果已为空" Else Adodc1.Refresh Adodc1.Recordset.delete CountDel = CountDel + 1 DataGrid1.Refresh DataGrid1.Caption = "已删除" & CountDel & " 条信息" End If End Sub
On Error Resume Next
If Adodc1.Recordset.RecordCount = 0 Then
MsgBox "结果已为空"
Else
Adodc1.Refresh
Adodc1.Recordset.delete
CountDel = CountDel + 1
DataGrid1.Refresh
DataGrid1.Caption = "已删除" & CountDel & " 条信息"
End If
End Sub
网格控件 ClassroomGridRecordID = ClassroomGrid.TextMatrix(ClassroomGrid.Row, 0)
MsgBox LastRow
MsgBox LastCol
End Sub