7,763
社区成员
发帖
与我相关
我的任务
分享
Private Sub TDBGrid1_HeadClick(ByVal ColIndex As Integer)
Adodc2.ConnectionString = Ado
Adodc2.RecordSource = "select * from spzl where splb='" & Trim(Text1.text) & "' Order By " & TDBGrid1.Columns(0).DataField
Adodc2.Refresh
Set TDBGrid1.DataSource = Adodc2
End Sub
怎么 倒序 啊?