用数组，
Ary1(1)="xm"
Ary2(1)="姓名"
Ary1(2)="km1"
Ary2(2)="科目1"
...
Ary1(n)="kmn"
Ary2(n)="科目n"
for i=1 to n
thisform.grid1.columns[i].header1.Caption= Ary2(i)
thisform.grid1.columns[i].ControlSource =Ary1(i)

排序，在 header1.Click 事件里对相应字段索引一下就可以。

我都找不到header1.click事件啊，为啥呢？我比较笨啊！

鼠标右键点击GRID，选择“编辑”（或Ctrl+左键点击GRID），然后双击header（栏头）可是。

真是我笨么？我点右键，没有编辑啊！CTRL+左键也没有啊！

找到了，原来需要设置column count才会出现啊

    THISFORM.GRID1.Partition=THISFORM.GRID1.COLUMN1.Width+30 &&30相当于垂直滚动条宽度
    thisform.grid1.refresh   

为什么啊？我没调整哪个参数啊，怎么都凑到一起去了呢？

将数据代码都打包放上来，这样方便测试。

我还没做代码呢，就是做了个GRID，然后打开表，就这样了！