哪位大侠能帮我解答下面的VB代码啊？ Private Sub Command1_Click(Index As Integer) Dim sql As String I

Private Sub Command1_Click()
On Error GoTo command1error'如果发生错误转到下面的标记处 command1error'
Command2.Enabled = False'使这个按钮不可用,下同,不再说明
Command3.Enabled = False
Command4.Enabled = True'使这个按钮可用,下同,不再说明
Command5.Enabled = True
DataGrid1.AllowAddNew = True'使列表框 dataGrid 可以添加
DataGrid1.AllowUpdate = True'使列表框 dataGrid 可以更新
Exit Sub'到这里如果没有错就会退出这个过程
commanderror:'这就是上面要转到的标记,如果发生错误才会执行,下同也不再说明
MsgBox Err.Description'弹出错误信息
End Sub'结束过程

Private Sub Command2_Click()
On Error GoTo Command2'同上
Command1.Enabled = False'同上
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = True
Command5.Enabled = True
DataGrid1.AllowUpdate = True
Command2:
If Err.Number <> 0 Then'每个错误都有一个编号,你也只可以在错误信息中看到,可以做出自己相应的处理
MsgBox Err.Description
End If
End Sub

Private Sub Command3_Click()
Dim answer As String
On Error GoTo command3error
answer = MsgBox("确定要删除吗?", vbYesNo, "")'提示是不是删除 vbYesNo 有两具按钮 yes(确定) no(取消)
If answer = vbYes Then,如果选择的是
Adodc1.Recordset.Delete'执行删除
Adodc1.Recordset.MoveNext'把指针移动到下一条数据
If Adodc1.Recordset.EOF = True Then '如果不是数据的尾部 如果是返回true 其实也就是没有数据了
Adodc1.Recordset.MoveLast'移动最后一条数据
End If
DataGrid1.Refresh'更新列表
MsgBox "成功删除!", vbOKOnly + vbExclamation, ""
DataGrid1.AllowDelete = False'设设置表不能删除数据
Private Sub Command5_Click()
DataGrid1.Refresh'刷新列表
DataGrid1.AllowAddNew = False'同上
DataGrid1.AllowUpdate = False'同上
Command2.Enabled = True'同上
'下面的我就不用 说了,和上面的都 一样
Command1.Enabled = True
Command3.Enabled = True
Command4.Enabled = False
Command5.Enabled = False
End Sub

Private Sub Form_Load()
Command4.Enabled = False
DataGrid1.AllowAddNew = False
DataGrid1.AllowDelete = False
DataGrid1.AllowUpdate = False
If userpow = "guest" Then
Frame2.Enabled = False
End If
Exit Sub
loaderror:
MsgBox Err.Description
End Sub

窗体名：Form6
代码：
Private Sub Command1_Click()
On Error GoTo commanderror
Command2.Enabled = False
Command3.Enabled = False
Command1.Enabled = False
Command4.Enabled = True
Command5.Enabled = True
DataGrid1.AllowAddNew = True
DataGrid1.AllowUpdate = True
Exit Sub
command1error:
MsgBox Err.Description
End Sub

Private Sub Command2_Click()
On Error GoTo Command2
Command1.Enabled = False
Command3.Enabled = False
Command2.Enabled = False
Command4.Enabled = True
Command5.Enabled = True
Command1.Enabled = True
DataGrid1.AllowUpdate = True
Command2:
If Error.Number <> 0 Then
MsgBox Err.Description
End If
End Sub

设置了按钮是否可用，能不能点击：
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = True
Command5.Enabled = True
还有数据表格能不能增加行
能不能更新：
{DataGrid1.AllowAddNew = True
DataGrid1.AllowUpdate = True}

太长了。好像也没什么好解释的，都是按钮的属性设置和绑定adodc的datagrid操作记录的操作，没什么复杂的。

可以百度HI找我
加入百度HI vb6专家群1358368
qq vb6交流群 184734495