|
![](static/image/common/ico_lz.png)
楼主 |
发表于 2007-9-13 23:38:25
|
显示全部楼层
更新-----------------------
遇到奇怪得问题。解决
关键词: Recordcount 统计
有时用Recordcount统计数据条数时,统计的并不准。
其实Recordcount隐含着一个陷阱,当程序打开一个数据库时,如果在未移动数据库针的情况下使用Recordcount,返回来的数值是1,如果数据库空的话返回0。
这是因为Recordcount是累计己读过数据来返回数值的。
如果用MOVENEXT把数据库指针移到第十条记录,Recordcount则返回10。
所以要想取得正确的记录数,请先MoveLast后再MoveFirst,Recordcount就会返回正确的数值。
http://tank2001yb.bokee.com/2339865.html摘要
自写vb源程序
Private Function rcount(D As Data) As Integer
On Error GoTo err
With D.Recordset
.MoveLast
.MoveFirst
rcount = .RecordCount
End With
Debug.Print rcount, "rc"
Exit Function '隔离错误处理
err: If err.Number = 3021 Then '表没有记录
rcount = 0
Else
MsgBox "错误"
End If
End Function
------------------源程序更新---------------------------------
点击此处下载armok01172967.rar
现在多了数据库保存功能--------则可以保存画画得板板了
选择图形删除-----任意步骤删除
选择图形移动-----任意节点为单位移动
画图状态选择。层面选择(线不同得颜色)
鼠标左键--画图,选择图形
鼠标右键--取消当前状态,刷新图形,进入选择图形状态(删除和移动操作)
空格---结束当前操作,操作状态不变
上下左右---选择图形后移动图形
delete---删除图形 |
|