请教一个关于从msflexgrid中取出相同数据并排序的问题，工作急用！谢谢！

Question

我有一个msflexgrid控件，共有3列，如下图所示：
|  列1  |  列2  |  列3  |
|  aa   |   1   |   xx  |
|  aa   |   2   |   yy  |
|  aa   |   1   |   hh  |
|  bb   |   1   |   ll  |
|  bb   |   1   |   vv  |
|  bb   |   2   |   oo  |
|  cc   |   1   |   pp  |现在我需要把列2中所有相同的数据提取出来，然后按照列1的内容排序，如：
                为1的数据有： 
aa xx
aa hh
bb ll
bb vv
cc pp                 为2的数据有
.......
请问要达到这样的效果应该怎么做呢？请各位帮帮忙啦！工作急用！谢谢！

Answer 1

先排序.showgrid.Redraw=False 
ShowGrid.Row = 1: ShowGrid.RowSel = 1
ShowGrid.Col = 1: ShowGrid.ColSel = 1
ShowGrid.Sort = 4
showgrid.Redraw=TRUE然后,用一个循环处理即可.

Answer 2

MSTOP(陈建华(东莞立晨企业资讯服务有限公司)) ：
能给我一个循环的代码看看吗？我实在不知怎么下手，谢谢

Answer 3

ShowGrid???你叫他寫吧，偶偏不貼了

Answer 4

DIM I AS LONG 
DIM NEWVAL AS STRING
DIM OLEVAL AS STRING FOR I=1 TO MSFHELXGRID1.ROWS-1
     IF MSFHELXGRID1.TextMatrix(I,1)="1" THEN
        '添加.
     END IF 
NEXT

Answer 5

MSTOP(陈建华(东莞立晨企业资讯服务有限公司)) ：
排序上没有发生任何变化啊？

Answer 6

写错了..
排序代码如下:showgrid.Redraw=False 
ShowGrid.Row = 1: ShowGrid.RowSel = ShowGrid.ROWS-11
ShowGrid.Col = 1: ShowGrid.ColSel = 1
ShowGrid.Sort = 4
showgrid.Redraw=TRUE

Answer 7

MSTOP(陈建华(东莞立晨企业资讯服务有限公司)):
ShowGrid.Row = 1: ShowGrid.RowSel = ShowGrid.ROWS-11我的rows总共才8行，怎么能 -11 呢？

Answer 8

是打错的...
ShowGrid.Row = 1: ShowGrid.RowSel = ShowGrid.ROWS-1

Answer 9

MSTOP(陈建华(东莞立晨企业资讯服务有限公司)):补充一下：第二列中的值是由一个下拉菜单决定的，而这个下拉菜单里的值是由数据库生成的，具有不确定性，那么，“IF MSFHELXGRID1.TextMatrix(I,1)="1" THEN”这样的写法没法弄啊！

Answer 10

IF MSFHELXGRID1.TextMatrix(I,1)=COMBO1.TEXT THEN

Answer 11

MSTOP(陈建华(东莞立晨企业资讯服务有限公司)):对不起，看样子我没说明白，整个流程是这样的：
从文本文件里取出数据到msflexgrid中，这时是没有列1内容的，然后用户通过点击列1出现一个从数据库中读取了数据的下拉菜单，然后把下拉菜单中选中的值传给列1并隐藏下拉菜单，所以，整个操作应该只是在msflexgrid中进行，而没有包括下拉菜单，因为这时候的下拉菜单是隐藏了的，并且，每行的列1都是通过一个下拉菜单赋值的.现在困扰我的问题就是怎样才能取出列1中相同的值！

Answer 12

LuBingLin(为什么？)：我想要做的就是把列2中相同值的这些行取出来，并按照列1的内容进行排序

Answer 13

在sql里建立一个临时表，把mshflexgrid中的数据依次保存到表中，然后用sql语句可以很方便地排列组合，再显示，如果那些数据原本就要保存，那就更好了

Answer 14

skyzj(天空)：
唉，没办法啊，客户要求如此。