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

  • 问题

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

    Sort=1   '对日期型排序错误! 
    时刻都在努力学习!
    2009年11月24日 9:02

答案

  • 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

     

    • 已标记为答案 张三宾 2009年11月28日 0:03
    2009年11月26日 5:33

全部回复