1、点科目排序后，怎么能让灰白条根据新的顺序排序呢？
2、点科目7以后的地方排序后，直接就刷新到第一屏去了，怎么解决呢？
3、怎么能使被选中的文本框内字体和其他字体一致呢？

麻烦啦！

[此贴子已经被作者于2016-3-14 16:01编辑过]

你的程序没问题，只是少2张图片
up.bmp 和dowm.bmp

[此贴子已经被作者于2016-3-14 16:46编辑过]

这个我改了，可以上下排序了，可是其他问题还是没有解决！

针对楼主的第一个问题，解决方案如下：
1. 你没有将 up.bmp 和 down.bmp 两个文件放置到项目文件下，因此，单击列标题后虽然已排序，但列标题没有任何变化，不直观
2. 你是根据记录号来使奇偶行显示不同颜色的。在排序方式下应该做如下修改：
   第一步：为表添加一个新字段 FLAG (L)，并执行如下代码给Flag字段赋初值：
      LOCAL lFlag
      SCAN
          REPLACE flag with lFlag
          lFlag = !lFlag
      ENDSCAN
   第二步：修改 Grid1.Init 中的代码为：This.SetAll("DynamicBackColor","IIF(Flag,RGB(255,255,255),RGB(192,192,192))","Column")
   第三步：修改 MyProc.prg,在 GO TOP 之前添加如下代码：
      LOCAL lFlag
      SCAN
          REPLACE flag with lFlag
          lFlag = !lFlag
      ENDSCAN

2、点科目7以后的地方排序后，直接就刷新到第一屏去了，怎么解决呢？

这个问题怎么解决啊，这是重点！非常感谢！

针对第二个问题，解决方案如下：

修改 MyProc.prg，在 THISFORM.Refresh 之后添加一行：THIS.Parent.SetFocus

针对第三个问题，我们可以修改表格的 SelectedItemBackColor 和 SelectedItemForeColor 以改变选定单元格的字体颜色和背景色，但字体、字号无法修改。

厉害，这个问题解决了！

OK！牛啊！我一直在想怎么setfocus

没有办法了，我把整体字体字号变大了之后，选定的就是没法改了！