7,763
社区成员
发帖
与我相关
我的任务
分享我在VB中使用DataGrid列表控件，如何实现在点击列标题时当前列能自动进行排序？
我在VB中使用DataGrid列表控件，如何实现在点击列标题时当前列能自动进行排序？并且如果点击后现在是按升序进行排列，若再次点击能重新以降序排列？
...全文
请发表友善的回复…
发表回复
czjw 2003-04-23
- 打赏
- 举报
Private Sub DataGrid1_HeadClick(ColIndex As Integer)
Data1.RecordSource = "Select * From Publishers Order By " & _
DataGrid1.Columns(ColIndex).DataField
Data1.Refresh
End Sub
Data1.RecordSource = "Select * From Publishers Order By " & _
DataGrid1.Columns(ColIndex).DataField
Data1.Refresh
End Sub
vansoft 2003-03-31
- 打赏
- 举报
错!
请用ListView的报表式样,就能解决了.
详情请咨询vansoft@sohu.com
请用ListView的报表式样,就能解决了.
详情请咨询vansoft@sohu.com
donglw 2003-03-31
- 打赏
- 举报
GOOGLE一下,网上多了去了!
我自己翻了一些原文帮助,需要的话发信给我
我自己翻了一些原文帮助,需要的话发信给我
ourbone 2003-03-31
- 打赏
- 举报
楼上的朋友，vsflexgrid在哪可以找到此控件？
xayzmb 2003-03-31
- 打赏
- 举报
先取得字段名
再重新查询按字段名排序
刷新
(一个笨办法)
再重新查询按字段名排序
刷新
(一个笨办法)
donglw 2003-03-30
- 打赏
- 举报
用vsflexgrid吧,自带此功能
luotian207 2003-03-30
- 打赏
- 举报
后面记得把布尔值还原
aiyaya 2003-03-30
- 打赏
- 举报
这样可行？
aiyaya 2003-03-30
- 打赏
- 举报
Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer)
if FallCom=true then 'FallCom定为全局boolean变量,初值设为true
FallCom=False
'升序排序
else
FallCom=true
'降序排序
end if
End Sub
if FallCom=true then 'FallCom定为全局boolean变量,初值设为true
FallCom=False
'升序排序
else
FallCom=true
'降序排序
end if
End Sub
AechoJohn 2003-03-30
- 打赏
- 举报
楼上的。
northwolves 2003-03-30
- 打赏
- 举报
Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer)
'...
rs2.open "select * from table where...order by "& rs1.fields(colindex) & iif(" asc "," desc "," asc"),cnn,3,3
set datagrid1.datasource=rs2
End Sub
'...
rs2.open "select * from table where...order by "& rs1.fields(colindex) & iif(" asc "," desc "," asc"),cnn,3,3
set datagrid1.datasource=rs2
End Sub
