VB6.0 MSHFlexGrid控件怎么对日期型数据进行排序

Question

VB6.0 MSHFlexGrid控件怎么对日期型数据进行排序
        With MSHFlexGrid1
            .Col = 1       '列坐标
            .Sort = 1      '排序方式
        End With

Sort=1   '对日期型排序错误! 

---

时刻都在努力学习！

Answer 1

使用Compare 事件 自定义排序

http://www.19abc.com/soft.asp?lei=19

---

http://feiyun0112.cnblogs.com/

Answer 2

谢谢!
您发给我的网址好像打不开呢？

---

时刻都在努力学习！

Answer 3

Dim i As Integer
Private Sub MSHFlexGrid1_Click()
i = i + 1
With MSHFlexGrid1
If .MouseRow <> 0 Then Exit Sub '如果不是标题行就不排序
  .Col = .MouseCol
  .Sort = 3 + i Mod 2'按数值型排序
   .Sort = 1 + i Mod 2'按字符排序
End With

End Sub

 

Answer 4

谢谢啊！
终于等到你了!

---

时刻都在努力学习！