If Not (rstWageBusiness.BOF And rstWageBusiness.EOF) Then
If state <> "锁定" Then
state = "锁定"
' Select Case MsgBox("商务代表工资表修改完成了吗?是否要锁定", vbYesNoCancel + vbQuestion, "系统提示:")
' Case Is = vbNo
' Set rstWageBusiness = Nothing
' Case Is = vbYes
Set rstWageBusiness = Nothing
FillRecordset "update tb_wageBusiness set ExtendDate='" & Date & "' ,state ='锁定' where Wagemonth='" & strDate & "'", rstWageBusiness
Cancel = 0
上面什么意思,bof eof
If state <> "锁定" Then
state = "锁定"
' Select Case MsgBox("商务代表工资表修改完成了吗?是否要锁定", vbYesNoCancel + vbQuestion, "系统提示:")
' Case Is = vbNo
' Set rstWageBusiness = Nothing
' Case Is = vbYes
Set rstWageBusiness = Nothing
FillRecordset "update tb_wageBusiness set ExtendDate='" & Date & "' ,state ='锁定' where Wagemonth='" & strDate & "'", rstWageBusiness
Cancel = 0
上面什么意思,bof eof
解决方案 »
- vb 恢复数据库 编译后无法运行
- 如何从资源文件中装入一个鼠标图标,然后用SETCURSOR来设置当前鼠标指针?
- 菜鸟问题,如果用VBA取得本地文件的大小?来者有分,在线等
- 请问关于SQL语句的问题
- 我想用VB编写一个音乐播放器,在窗体加载时就播放!我希望有代码越简单越好!不需要太多的按钮。希望有窗体的截图!!先谢谢了....等待ing.....
- how to send a Handle to WebBrowser's web ?
- 请教各位一个和注册表相关的获取文件名的问题,高分,我在网上等着呢
- 报表方向问题
- 如何区分硬件的键盘鼠标事件和软件模拟的鼠标事件?
- 【怎样动态添加Datagrid?】
- 用VB如何实现直接穿透登录页面进入到下一页面
- vb 中没有这样的下拉列表
EOF 指当前记录位置位于 Recordset 对象的最后一个记录之后。通俗的说是记录集到了最前或最后,没有数据
返回值 BOF 和 EOF 属性返回布尔型值。 说明 使用 BOF 和 EOF 属性可确定 Recordset 对象是否包含记录,或者从一个记录移动到另一个记录时是否超出 Recordset 对象的限制。 如果当前记录位于第一个记录之前,BOF 属性将返回 True (-1),如果当前记录为第一个记录或位于其后则将返回 False (0)。 如果当前记录位于 Recordset 对象的最后一个记录之后 EOF 属性将返回 True,而当前记录为 Recordset 对象的最后一个记录或位于其前,则将返回 False。 如果 BOF 或 EOF 属性为 True,则没有当前记录。 如果打开没有记录的 Recordset 对象,BOF 和 EOF 属性将设置为 True,而 Recordset 对象的 RecordCount 属性设置为零。打开至少包含一条记录的 Recordset 对象时,第一条记录为当前记录,而 BOF 和 EOF 属性为 False。 如果删除 Recordset 对象中保留的最后记录,BOF 和 EOF 属性将保持 False,直到重新安排当前记录。
not 逻辑非
and 逻辑与 BOF 和 EOF 属性返回布尔型值如果 rstWageBusiness.BOF And rstWageBusiness.EOF 为true
则 Not (rstWageBusiness.BOF And rstWageBusiness.EOF) 为false
反之亦然
EOF =》END OF FILE