怎么设置表格Grdmain的删除啊,我要在文本框中输号码,就可以删掉啊请大家帮我改一下
Private Sub cmdFrist_Click()
If txtFrist = "" Then
MsgBox "无信息无法查询"
Exit Sub
End If
Dim strSql As String
strSql = "Delete From T_READER Where reader_index=" & txtFrist
rstLocal.Delete
On Error GoTo errExcu
If grdMain.Row <> 0 Then
If txtFrist.Text = grdMain.TextMatrix(grdMain.Row, 1) Then
DeleteGrid grdMain.Row
cnnLocal.Execute strSql
End If
End If
Exit Sub
errExcu:
MsgBox Err.Number & vbCrLf & Err.Description
End Sub