标题:求助一个MSFlexGrid相关问题
只看楼主
SoftwKLC
Rank: 1
等 级:新手上路
帖 子:16
专家分:0
注 册:2006-11-8
 问题点数:0 回复次数:9 
求助一个MSFlexGrid相关问题

====================================
现在我有两个窗口Form1,Form2
Form1中和 MSFlexGrid,command1
MSFlexGrid里显示的数据有:

用户编号| 用户姓名|
001 | Admin |
002 | abcd |
====================================
当我点command1时出现另一个窗口
Form2,Form2作查询用
Label Text Command
用户编号:[001] 查找
当我单击Command查找时
我想要实现的是:MSFlexgrid显示的还是两条记录,但是001 Admin 这行为整行选中状态

用户编号| 用户姓名|
001 | Admin |----这行为整行选中
002 | abcd |
====================================
怎么实现啊?谢谢了

搜索更多相关主题的帖子: MSFlexGrid 
2007-01-18 11:06
SoftwKLC
Rank: 1
等 级:新手上路
帖 子:16
专家分:0
注 册:2006-11-8
得分:0 

怎么没人...,哎!!!

2007-01-18 13:19
PcrazyC
Rank: 6Rank: 6
等 级:贵宾
威 望:29
帖 子:5652
专家分:0
注 册:2006-10-20
得分:0 
能不能说一下,你实现这样的功能做什么

雁无留踪之意,水无取影之心
2007-01-18 15:09
SoftwKLC
Rank: 1
等 级:新手上路
帖 子:16
专家分:0
注 册:2006-11-8
得分:0 
我就是实现一个查找功能,是通过另外一个窗口来实现的~
2007-01-18 15:20
PcrazyC
Rank: 6Rank: 6
等 级:贵宾
威 望:29
帖 子:5652
专家分:0
注 册:2006-10-20
得分:0 

你要的是使当前记录为你要查询的记录
你用RECORDSET对象的FIND方法查找你要找的记录,然后更新DATAGRID控件试试


雁无留踪之意,水无取影之心
2007-01-18 15:59
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
得分:0 
有建议用ado的Find方法,直接使用select语句

我的msn: myfend@
2007-01-18 16:04
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
得分:0 
打错字了..是不建议用Ado的find方法..应该直接用select语句/

我的msn: myfend@
2007-01-18 16:05
PcrazyC
Rank: 6Rank: 6
等 级:贵宾
威 望:29
帖 子:5652
专家分:0
注 册:2006-10-20
得分:0 

他要使其它的都显示出来,而要查询的记录突出显示,用SELECT不就没有其它的了


雁无留踪之意,水无取影之心
2007-01-18 16:11
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
得分:0 
那可能是你还没有理解select语句吧..

我的msn: myfend@
2007-01-18 16:15
SoftwKLC
Rank: 1
等 级:新手上路
帖 子:16
专家分:0
注 册:2006-11-8
得分:0 

谢谢楼上两位!
刚才有位朋友建议我用以下这种方法但是不能实现,不知道是哪里出错了...

我是通过单击Form2中的cmdRes按钮,在Form1中MSFlexGrid显示查找结果值
怎么实现啊
能不能这样...
Form2窗口中有以下控件
--------------------------------------------------------
Label textBox CommandButton
查找关键字: ()----txtKeyWord cmdRes -查找
--------------------------------------------------------
Label ComboBox CommandButton
按查找字段: ()----cboField cmdCancel-取消
-------------------------------------------------------
private sub cmdRes_click()
With Form1.MSFUser
For i = 1 To .Rows - 1
If Trim(.Text) = txtKeyWord.Text Then
.Row = i
.Col = 0
.RowSel = i
.ColSel = i
End If
Next i
Unload Me
End With
end sub

2007-01-18 16:45



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-116685-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.065884 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved