If .EOF Then
Call MsgBox("FILTER NOT FOUND!", vbCritical)
txtsStaffId.SetFocus()
Else
DataGrid.SetFocus()
End If
True:是结尾,后面没数据
False:不是结尾,后面有数据
Recount(Ds) >0 不是结尾,还有数据
<=0 是结尾,后面没数据
Ds.EOF -> RowCount(Ds) <= 0
Ds.EOF = False -> RowCount(Ds) >0
Call MsgBox("FILTER NOT FOUND!", vbCritical)
txtsStaffId.SetFocus()
Else
DataGrid.SetFocus()
End If
True:是结尾,后面没数据
False:不是结尾,后面有数据
Recount(Ds) >0 不是结尾,还有数据
<=0 是结尾,后面没数据
Ds.EOF -> RowCount(Ds) <= 0
Ds.EOF = False -> RowCount(Ds) >0