SELECT 分数,COUNT(*) 次数 FROM 原表 INTO CURSOR t2 GROUP BY 分数 ORDER BY 次数 DESC,分数 desc
 CREATE CURSOR t3 (次数 int,分数 c(254))
 GO TOP IN t2
 SELECT t2
 str1=''
 i=次数
 SCAN
     IF 次数=i
         str1=str1+TRANSFORM(分数)+','
     ELSE
         str1=LEFT(str1,LEN(str1)-1)
         INSERT INTO T3(次数,分数) VALUES (I,str1)
         I=次数
         str1=TRANSFORM(分数)+','
     ENDIF
 ENDSCAN
 str1=LEFT(str1,LEN(str1)-1)
 INSERT INTO T3(次数,分数) VALUES (I,str1)
 SELECT T3

运行后
GEID1显示出来的 分数 列宽太小
加了这个 BROWSEThisForm.Grid1.ColumnCount=-1
次数 里面的内容空格太多。显示 次数 的列宽太大，分数就刚刚好了
要怎么处理啊？？在线等。。。

先学会语言描述，再学编程。

新手嘛～～～不好意思
就是显示出来
次数           分数
1                 100.99.95
2                  85
3                  87
我想调小次数的列宽
次数  分数
1        100.99.95
2         85
3         87

看帮助文件，楼主的自学能力太差了

调了grid里面的列宽，在表执行之前是改好，但一运行显示查询出来的表，列宽还是一样太大，改了没作用

会写代码吗

买或借本书好好看看！

只会写最简单的而已。。。初学，现在就差这个就好了，帮帮我吧

能做表单并能运用控件的编程就已不是最简单的编程了。

表单上放个命令按钮，CLICK事件代码如下

Create Cursor Fstj (次数 N(2),分数段 C(250))
Select 成绩,Count(*) 次数 From 成绩表 Group By 成绩 Order By 2 Into Cursor Temp
Go Bottom
nMcs=次数
For lnI=1 To nMcs
    Count For 次数=lnI To nCs
    If nCs=0
        Loop
    EndIf
    Cfs=""
    Scan For 次数=lnI
         Cfs=Cfs+Iif(Empty(Cfs),"",",")+Transform(成绩)
    EndScan
    Insert Into Fstj Values (lnI,Cfs)
EndFor
Select Fstj
Go Top
With Thisform.Grid1
    .ColumnCount=Fcount("Fstj")
    .RecordSource="Fstj"
    For lnI=1 To .ColumnCount
        .Columns(lnI).Header1.Caption=Field(lnI)
        .Columns(lnI).Header1.Alignment=2
        .Columns(lnI).Width=Iif(lnI=1,30,300)
    EndFor
EndWith

[ 本帖最后由 sdta 于 2014-10-18 00:12 编辑 ]