" id="b1img" alt="米课”N+1“思维建站-非官方免费技术支持,Wordpress/Zencart/Opencart建站、SEO" title="米课”N+1“思维建站-非官方免费技术支持,Wordpress/Zencart/Opencart建站、SEO">
  • " alt="米课”N+1“思维建站-非官方免费技术支持,Wordpress/Zencart/Opencart建站、SEO" title="米课”N+1“思维建站-非官方免费技术支持,Wordpress/Zencart/Opencart建站、SEO" />
  • " alt="Windows/Linux服务器运维技术支持 环境搭建、应用发布、服务器管理、虚拟化、云计算" title="Windows/Linux服务器运维技术支持 环境搭建、应用发布、服务器管理、虚拟化、云计算" />
  • " alt="高校/小型企业网络运维与建设免费技术支持,网络规划、网络优化、故障排除、网络管理" title="高校/小型企业网络运维与建设免费技术支持,网络规划、网络优化、故障排除、网络管理" />

VB-网格排序函数

程序设计2005-03-26 itlogger阅读(600) 评论(0)
‘**************************************
‘ Name: SortFlex
‘通过点击网格列标头,对网格内容进行排序
‘ 参数描述:
SortFlex MSFlexGrid, CollumToSort , StringSortAsBoolean , StringSortAsBoolean …
调用示例:
SortFlex flxProject, flxProject.MouseCol, False, True, True, True
”**************************************
Public Sub SortFlex(FlexGrid As MSFlexGrid, TheCol As Integer, ParamArray IsString() As Variant)
FlexGrid.Col = TheCol

For I = 0 To FlexGrid.Cols – 1
Headline = FlexGrid.TextMatrix(0, i)
Ascend = Right$(Headline, 1) = “+”
Decend = Right$(Headline, 1) = “-”
If Ascend Or Decend Then Headline = Left$(Headline, Len(Headline) – 1)
If I = TheCol Then
If Ascend Then
FlexGrid.TextMatrix(0, i) = Headline & “-”
If IsMissing(IsString(i)) Then
FlexGrid.Sort = flexSortGenericDescending
Else
If IsString(i) Then
FlexGrid.Sort = flexSortStringDescending
Else
FlexGrid.Sort = flexSortNumericDescending
End If
End If
Else
FlexGrid.TextMatrix(0, i) = Headline & “+”
If IsMissing(IsString(i)) Then
FlexGrid.Sort = flexSortGenericAscending
Else
If IsString(i) Then
FlexGrid.Sort = flexSortStringAscending
Else
FlexGrid.Sort = flexSortNumericAscending
End If
End If
End If
Else
FlexGrid.TextMatrix(0, i) = Headline
End If
Next I
End Sub

转载请注明 :IT樵客
文章地址:http://www.itlogger.com/program/15.html
标签:
相关文章

发表评论

电子邮件地址不会被公开。 必填项已用*标注