在查询表单GRID控件中如何在左边得到一个记录号,有N条记录就有序号1到N,一目了然查到了N条记录.

sele recn() xh,* from 表 into curs a1
thisform.grid1.RecordSource="a1"
thisform.grid1.RecordSourcetype=1

我刚试了一下:按你的方法得到的序号是原表的序号,我想得到的是根据查询后得到结果重新写序号.

*VFP9代码
*GRID1.INIT事件代码
CREATE CURSOR T (名称 C(30),分类 C(10))
FOR I=1 TO 4
    FOR J=1 TO ALANGUAGE(AB,I)
        INSERT INTO T VALUES (IIF(I!=2,AB(J),AB(J,1)+'('+')'),ICASE(I=1,[命令],I=2,[函数],I=3,[基本类],[DBC事件]))
    ENDFOR   
ENDFOR
GO TOP
WITH THISFORM.GRID1
   .COLUMNCOUNT=FCOUNT([T])
   .RECORDSOURCE=[T]
   FOR I=1 TO .COLUMNCOUNT
       .COLUMNS(I).HEADER1.CAPTION=FIELD(I,[T])
       .COLUMNS(I).HEADER1.ALIGNMENT=2
   ENDFOR
   .ADDCOLUMN(1)
   WITH .COLUMNS(.COLUMNCOUNT)
      .CONTROLSOURCE="PADL(RECNO([T]),LEN(TRANSFORM(RECCOUNT([T]))),[0])"
      .NAME = "NEWCOLUMN"
      .HEADER1.CAPTION=[序号]
      .HEADER1.ALIGNMENT=2
   ENDWITH
   .AUTOFIT
ENDWITH

4楼的代码可以放在合适的事件中，稍加修改就可以用了

你可以试试这条命令：

SELECT RECNO() 序号, T1.* ;
   FROM (SELECT * FROM 原表 WHERE 条件 ...) T1 ;
   INTO CURSOR T2

思路是：内层的子查询查出结果后，由它担任临时表T1，于是T1就有了记录号，而且这个记录号就是结果记录的记录号，而非原表中的。再用外层的父查询把这些记录号作为一个字段弄出来就可以了。

收到的鲜花

• hu9jj 于 2013-07-23 07:08 送鲜花  50朵   附言：我很赞同

谢谢,我用VFP6.0 分成二条命令,达到了目的.

谢谢SDTA版主,很幸苦,写了程序命令,我用不了9.0

[ 本帖最后由 tjdeming 于 2013-7-23 05:02 编辑 ]

6楼的思路不错

6.0应该也能用我6楼的SELECT命令吧？貌似6.0支持子查询的。不过你这个任务比较简单，分两条命令一样的，就是可能会多出来一个临时表。