已经做出来了,现又有新的问题,过程是:
Private Sub Command1_Click()
'判断是否选择了表中的一行
If Adodc2.Recordset.EOF = True Or Adodc2.Recordset.BOF = True Then
MsgBox "请选择要显示的行"
Exit Sub
End If
With Adodc2
.Recordset.Fields("sendope") = 0
.Recordset.Fields("sendtime") = Now()
.Recordset.Update
.Recordset.Requery
End With
End Sub
可以修改了,
但如何防止直接点Command1进行修改,当直接点Command1时,则提示要先选中要修改的栏,才能进行修改。
这条 '判断是否选择了表中的一行
If Adodc2.Recordset.EOF = True Or Adodc2.Recordset.BOF = True Then
MsgBox "请选择要显示的行"
只是在没有数据是才行,
请各位再帮看一看,先谢了