VB的Adodc显示不完整记录。怎么办？
2019-09-28
Adodc1.Recordset.Find ("名称='" & mno & "'")如果没有找到，此时，Adodc1.Recordset.EOF将为TRUE，此时只能前移MovePrevious或MoveFirst或MoveLast，不能再MoveNext，即只能move 一个负值，而不能move一个正值。
如果再继续move p，将出错，已经到最后一条的后面了执行以下代码可使Adodc1.Recordset.EOF为TRUE： Adodc1.Recordset.MoveLast Adodc1.Recordset.MoveNext Private Sub Command9_Click()Dim mno As String, p%p = Adodc1.Recordset.AbsolutePositionmno = InputBox("请输入名称", "查找窗"
)Adodc1.RefreshAdodc1.Recordset.Find ("名称='" & mno & "'"
)If Trim(mno) = "" Then'应把此判断提到前面Adodc1.Recordset.AbsolutePosition = pValue = MsgBox("没有找到记录！", 0, "提示"
)ElseIf Text1.Text = "" ThenAdodc1.Recordset.AbsolutePosition = pValue = MsgBox("没有找到记录！", 0, "提示")Me.RefreshEnd If可用Bookmark代替AbsolutePositionEnd Sub
大家都在看
本站系本网编辑转载，转载目的在于传递更多信息，并不代表本网赞同其观点和对其真实性负责。如涉及作品内容、版权和其它问题，请在30日内与本网联系，我们将在第一时间删除内容！本站文章版权归原作者所有，内容为作者个人观点。本站只提供参考并不构成任何投资及应用建议。本站拥有对此声明的最终解释权。