已经做出来了,现又有新的问题,过程是:
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 "请选择要显示的行"
只是在没有数据是才行,
请各位再帮看一看,先谢了