熟悉True Dbgrid的朋友请进！

Question

没有这个属性，但可以自己写代码以下是我写的通用代码，可用于任一tdbgrid中
取的是adodc1的recordsource的值
使用时首选定义一变量，
Dim Order_By As Boolean
说明，addmode和editmode是我定义的，表示是在新增或修改时不能排序（排序将adodc1.refresh，不是我们想要的，你可改为自己的语句）Private Sub TDBGrid1_HeadClick(ByVal ColIndex As Integer)
If AddMode = False And EditMode = False Then
Dim b() As String
Dim aa As String
If Order_By = False Then
    aa = " desc"
    Order_By = True
Else
    aa = ""
    Order_By = False
End If
    ReDim b(2)
    Sql = Adodc1.RecordSource
    b = Split(Sql, "order by")
    Sql = b(0) & " order by  " & Trim(TDBGrid1.Columns(ColIndex).DataField) & aa
    Adodc1.RecordSource = Sql
    Adodc1.Refresh
End If
End Sub

Answer 1

没有这个属性的。
likesome(likesome)的程序应该没什么问题。
你可以试试