拿这个问题没办法，知道的朋友帮帮忙，mshflexgrid的问题。在线等

2004-11-30 11:39:12 179 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

pingpangqiuliuji 墨衍会员 · AI 创作全网分发关注 + 加入社区

MSHFlexGrid控件前言：这个控件，看上去十分的简单，就是个显示数据的表格，而已，其实，它还真没少让我头疼。头疼在哪里，就在它那深不可测的属性上猪骨汤：学生基本信息维护的窗体中，在进行，选中数据进行修改时，确实遇到了挠头的事情。本身选中一行就有点儿迷，但经过查找，站在巨人肩膀上，哈哈，能够解决，也弄明白了。但经过多次试验，起初是选不中，觉得可能是控件属性的问题，但不知是哪个，就试了... 阅读详情

问题描述：将ADO控件与mshflexgrid控件绑定后，mshflexgrid不能返回正确的当前选择的行（mshflexgrid.row）。
详细描述：
（1）：登陆窗体的时候，我在form_load事件中将ado和mshflexgrid两个控件绑定，这个时候如果ado记录集不为空，mshflexgrid能返回正确的当前行，但是当我执行下面两个步骤的后，mshflexgrid就不能返回正确的当前行
(2)执行一次查询，ado控件的记录集为空
(3)再执行一次查询，ado控件的记录集不为空，鼠标点mshflexgrid控件，这个时候mshflexgrid返回的当前行(mshflexgrid.row)是个错误的当前行.如果记录集较多，点右边的下拉按钮后，再点mshflexgrid中的记录，返回的当前行又是正确

...全文

删除选中MSHFlexGrid控件中的数据在编程时，代码越简单越好，让人一看就明白最好了。所以一直出于这个由衷的原则，所以在每次敲代码时，总是根据自己所学到的知识来修改代码，做到最简单，最直接了当的完成事件才不再修改。今天在做机房收费系统时遇到点小问题，不知道如何去删除MSHFlexGrid中的数据并且连带着把数据库中的数据删了，上网查了好多方法，看了很多人写的代码，自己也有点体会。所以就想把自己写的分享出来，供大家参考，也想让大家给阅读详情

pingpangqiuliuji

控件 1,453 成员 41,351 内容

+ 关注 + 加入社区

切换为时间正序

Abyss-Xu 2004-12-03

打赏
举报

mshflexgrid 绑定到空集合。
你的问题我有遇到过，这是mshflexgrid控件本身的问题
你最好不要绑定到空集合，如果rs 为空的话,给 mshflexgrid 留行空行这样rs 不为空时绑定就没有问题了。

if adodc1.Recordset.RecordCount<1 then
mshflexgrid1.clear
mshflexgrid1.rows=2

'如果要标题的话这样
mshflexgrid1.textmatrix(0,0)="你要写的"
mshflexgrid1.textmatrix(0,1)="你要写的"
'....
else
绑定
end if

aohan 2004-12-02

打赏
举报

pingpangqiuliuji(独孤求败)

我试了一下你的问题，我上面想法确实不行，不过还有个折中的办法，你可以试一下

在你的查询赋值之前，先

unload me '把窗体卸掉
load me '再装一次
set MSH.RecordSource =rs

这样就能正确返回MSH的 row 值了

我现在也没有发现更好的办法

aohan 2004-11-30

打赏
举报

那就这样,你用
dim rs as new adodb.recordset

rs.open "" ‘你上面的语句

然后判断

if not rs.eof '判断不为空时再赋值
set MSH.RecordSource =rs
MSH.Refresh
end if

这样试试看是否也有问题

pingpangqiuliuji 2004-11-30

打赏
举报

兄弟们：应该不是SQL语句的问题。我在查询分析器里执行了。我就是觉得奇怪的是，如果记录集没出现空的话，不会出现那问题。就是当查询出新空后，在去查询，就有那个问题。郁闷

pingpangqiuliuji 2004-11-30

打赏
举报

还是不行。我的代码
这里是登陆：（form_load）
Adodc1.CursorLocation = adUseClient
Adodc1.CursorType = adOpenDynamic
Adodc1.LockType = adLockOptimistic
Adodc1.ConnectionString = strCnnstring

Adodc1.RecordSource = "select yw_infob.ywbh as 业务流水号,ryinfo.RYXM as 施工人员,yw_infob.ywzl as 业务种类,yw_infob.uname as 用户名称,yw_infob.uphone as 用户号码,yw_infob.qh as 区号,yw_infob.uaddr as 联系地址,yw_infob.ulxfs as 联系方式,bminfo.BMMC as 受理营业厅,yw_infob.ywslsj as 受理时间,sgry_infob.wgdjsj as 完工时间,yw_infob.sbtg as 设备,yw_infob.ZJtype as 装机类型,sgry_infob.dgmemo as 备注,sgry_infob.pgbh as 派工编号,sgry_infob.rybh as ' ','未完工' as wg from yw_infob,sgry_infob,(select rybh,RYXM from ryinfo where BMBH='" & Trim(Str_bmbh) & "' and XTBH='" & Trim(Str_xtcode) & "' ) as ryinfo,bminfo where bminfo.bmtype='JYB' and sgry_infob.wgzt='Y' and bminfo.bmbh='" & Trim(Str_bmbh) & "' and yw_infob.ywbh=sgry_infob.ywbh and sgry_infob.bmbh=bminfo.bmbh and sgry_infob.rybh=ryinfo.rybh and sgry_infob.wgdjsj > '" & DTP1.Value & "' and sgry_infob.wgdjsj < '" & DTP2.Value & "' union " & _
"select wg_infob.ywbh as 业务流水号,ryinfo.RYXM as 施工人员,wg_infob.ywzl as 业务种类,user_card.uname as 用户名称,user_card.uphone as 用户号码,user_card.qh as 区号,user_card.uaddr as 联系地址,user_card.ulxfs as 联系方式,bminfo.BMMC as 受理营业厅,wg_infob.ywslsj as 受理时间,wg_infob.wgsj as 完工时间,user_card.sbtg as 设备,user_card.ZJtype as 装机类型,sgry_infob.dgmemo as 备注,wg_infob.pgbh as 派工编号,sgry_infob.rybh as ' ','完工' as wg from user_card,sgry_infob,(select rybh,RYXM from ryinfo where BMBH='" & Trim(Str_bmbh) & "' and XTBH='" & Trim(Str_xtcode) & "' ) as ryinfo,bminfo,wg_infob where bminfo.bmbh='" & Trim(Str_bmbh) & "' and wg_infob.wgzt='Y' and bminfo.BMtype='JYB' and wg_infob.ywbh=sgry_infob.ywbh and wg_infob.uphone=user_card.uphone and sgry_infob.rybh=ryinfo.rybh and sgry_infob.bmbh=bminfo.bmbh and wg_infob.wgsj > '" & DTP1.Value & "' and wg_infob.wgsj < '" & DTP2.Value & "' order by ywslsj desc"
Set MSH.DataSource = Adodc1

下面是查询事件中的代码：
If Opt(0).Value = True Then '显示成功的完工业务
'判断是成功的公单还是不成功的公单
Str_query3 = "select wg_infob.ywbh as 业务流水号,ryinfo.RYXM as 施工人员,wg_infob.ywzl as 业务种类,user_card.uname as 用户名称,user_card.uphone as 用户号码,user_card.qh as 区号,user_card.uaddr as 联系地址,user_card.ulxfs as 联系方式,bminfo.BMMC as 受理营业厅,wg_infob.ywslsj as 受理时间,wg_infob.wgsj as 完工时间,user_card.sbtg as 设备,user_card.ZJtype as 装机类型,sgry_infob.dgmemo as 备注,wg_infob.pgbh as 派工编号,sgry_infob.rybh as ' ','完工' as wg from user_card,sgry_infob,(select rybh,RYXM from ryinfo where BMBH='" & Trim(Str_bmbh) & "' and XTBH='" & Trim(Str_xtcode) & "' ) as ryinfo,bminfo,wg_infob where wg_infob.wgzt='Y' and bminfo.BMtype='JYB' and wg_infob.ywbh=sgry_infob.ywbh and wg_infob.uphone=user_card.uphone and sgry_infob.rybh=ryinfo.rybh and sgry_infob.bmbh=bminfo.bmbh and bminfo.bmbh='" & Trim(Str_bmbh) & "'" & Str_query2 & " union " & _
" select yw_infob.ywbh as 业务流水号,ryinfo.RYXM as 施工人员,yw_infob.ywzl as 业务种类,yw_infob.uname as 用户名称,yw_infob.uphone as 用户号码,yw_infob.qh as 区号,yw_infob.uaddr as 联系地址,yw_infob.ulxfs as 联系方式,bminfo.BMMC as 受理营业厅,yw_infob.ywslsj as 受理时间,sgry_infob.wgdjsj as 完工时间,yw_infob.sbtg as 设备,yw_infob.ZJtype as 装机类型,sgry_infob.dgmemo as 备注,sgry_infob.pgbh as 派工编号,sgry_infob.rybh as ' ','未完工' as wg from yw_infob,sgry_infob,(select rybh,RYXM from ryinfo where BMBH='" & Trim(Str_bmbh) & "' and XTBH='" & Trim(Str_xtcode) & "' ) as ryinfo,bminfo where yw_infob.ywbh=sgry_infob.ywbh and sgry_infob.wgzt='Y' and sgry_infob.bmbh=bminfo.bmbh and bminfo.bmbh='" & Trim(Str_bmbh) & "' and bminfo.bmtype='JYB' and sgry_infob.rybh=ryinfo.rybh " & Str_query1 & " order by ywslsj desc"
Else
'Str_query3 = "select wg_infob.ywbh as 业务流水号,ryinfo.RYXM as 施工人员,wg_infob.ywzl as 业务种类,user_card.uname as 用户名称,user_card.uphone as 用户号码,user_card.qh as 区号,user_card.uaddr as 联系地址,user_card.ulxfs as 联系方式,bminfo.BMMC as 受理营业厅,wg_infob.ywslsj as 受理时间,wg_infob.wgsj as 完工时间,user_card.sbtg as 设备,user_card.ZJtype as 装机类型,sgry_infob.dgmemo as 备注,wg_infob.pgbh as 派工编号,sgry_infob.rybh as ' ','完工' as wg from user_card,sgry_infob,(select rybh,RYXM from ryinfo where BMBH='" & Trim(Str_bmbh) & "' and XTBH='" & Trim(Str_xtcode) & "' ) as ryinfo,bminfo,wg_infob where wg_infob.wgzt='N' and bminfo.BMtype='JYB' and wg_infob.ywbh=sgry_infob.ywbh and wg_infob.uphone=user_card.uphone and sgry_infob.rybh=ryinfo.rybh and sgry_infob.bmbh=bminfo.bmbh and bminfo.bmbh='" & Trim(Str_bmbh) & "'" & Str_query2 & " union " & _
" select yw_infob.ywbh as 业务流水号,ryinfo.RYXM as 施工人员,yw_infob.ywzl as 业务种类,yw_infob.uname as 用户名称,yw_infob.uphone as 用户号码,yw_infob.qh as 区号,yw_infob.uaddr as 联系地址,yw_infob.ulxfs as 联系方式,bminfo.BMMC as 受理营业厅,yw_infob.ywslsj as 受理时间,sgry_infob.wgdjsj as 完工时间,yw_infob.sbtg as 设备,yw_infob.ZJtype as 装机类型,sgry_infob.dgmemo as 备注,sgry_infob.pgbh as 派工编号,sgry_infob.rybh as ' ','未完工' as wg from yw_infob,sgry_infob,(select rybh,RYXM from ryinfo where BMBH='" & Trim(Str_bmbh) & "' and XTBH='" & Trim(Str_xtcode) & "' ) as ryinfo,bminfo where yw_infob.ywbh=sgry_infob.ywbh and sgry_infob.wgzt='D' and sgry_infob.bmbh=bminfo.bmbh and bminfo.bmbh='" & Trim(Str_bmbh) & "' and bminfo.bmtype='JYB' and sgry_infob.rybh=ryinfo.rybh " & Str_query1 & " order by ywslsj desc"
Str_query3 = "select yw_infob.ywbh as 业务流水号,ryinfo.RYXM as 施工人员,yw_infob.ywzl as 业务种类,yw_infob.uname as 用户名称,yw_infob.uphone as 用户号码,yw_infob.qh as 区号,yw_infob.uaddr as 联系地址,yw_infob.ulxfs as 联系方式,bminfo.BMMC as 受理营业厅,yw_infob.ywslsj as 受理时间,sgry_infob.wgdjsj as 完工时间,yw_infob.sbtg as 设备,yw_infob.ZJtype as 装机类型,sgry_infob.dgmemo as 备注,sgry_infob.pgbh as 派工编号,sgry_infob.rybh as ' ','未完工' as wg from yw_infob,sgry_infob,(select rybh,RYXM from ryinfo where BMBH='" & Trim(Str_bmbh) & "' and XTBH='" & Trim(Str_xtcode) & "' ) as ryinfo,bminfo where yw_infob.ywbh=sgry_infob.ywbh and sgry_infob.wgzt='D' and sgry_infob.bmbh=bminfo.bmbh and bminfo.bmbh='" & Trim(Str_bmbh) & "' and bminfo.bmtype='JYB' and sgry_infob.rybh=ryinfo.rybh " & Str_query1 & " order by ywslsj desc"
End If
Adodc1.RecordSource = Str_query3
Adodc1.Refresh
MSH.Refresh

aohan 2004-11-30

打赏
举报

我处理mshflexgrid时没发现过你所说的问题，能否贴点代码上来看看你是怎么处理的

pingpangqiuliuji 2004-11-30

打赏
举报

谢谢大家，我先去试一下。
成功了就给大家加分了
顺便问一下.row和.rowsel有什么区别

saiko 2004-11-30

打赏
举报

有点不明白：
1.如果从不能返回正确的当前选择的行来说不是 mshflexgrid.row 应该是 mshflexgrid.rowsel

2.如果是返回记录集的行数的话应该是 mshflexgrid.rows

zgvslch 2004-11-30

打赏
举报

要把游标设为服务器端(或客户端,我记不清了,汗 ^_^!!)
rst.CursorLocation = adUseServer /adUseClient

还有个办法就是打开后移动到最后一条记录，再移动到最开始。
rst.movelast
rst.movefirst

pingpangqiuliuji 2004-11-30

打赏
举报

没有那，我没对mshflexgrid控件属性改任何东西

zgvslch 2004-11-30

打赏
举报

你是不是在mshflexgrid中排了序的？
如果那样就会和记录集里的顺序不一样了

saiko 2004-11-30

打赏
举报

.row '是当前所操作的行
.rowsel '当前选中的行

pingpangqiuliuji 2004-11-30

打赏
举报

都不行
等待中ing……

pingpangqiuliuji 2004-11-30

打赏
举报

to aohao
不能象你那样，你所说的不行，为空的时候还是要显示的
再次谢谢大家，我去试一下tztz520你的办法。

tztz520 2004-11-30

打赏
举报

你可以这样试一下.
就是每都先nothing

set MSH.RecordSource =nothing
set MSH.RecordSource =rs

拿这个问题没办法，知道的朋友帮帮忙，mshflexgrid的问题。在线等

相关推荐