VB-解决mshflexgrid 不能删除最后一条记录的问题

    如果默认设置routegrid.fixedrows=1,那么删除最后一条记录的时候就会提示出错”can not move last non-fixed row”

    解决方法如下:

If Rs.RecordCount = 1 Then’如果是最后一条记录

For I = 0 To 4 ‘将Mshflexgrid的最后一条记录置为空

RouteGrid.TextMatrix(1, i) = “”

Next

Else

RouteGrid.RemoveItem (RouteGrid.RowSel)

End If

sql = “delete from IProute where id=” /从数据库删除

Cnn.Execute sql

Rs.Requery

转载请注明 :IT樵客

此条目发表在 程序设计 分类目录,贴了 , 标签。将固定链接加入收藏夹。

关于 logger

2010年网络规划设计师证书寻挂靠!

发表评论

电子邮件地址不会被公开。 必填项已用 * 标注

*

您可以使用这些 HTML 标签和属性: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>