找回密码
 立即注册

QQ登录

只需一步,快速开始

barrylei
中级会员   /  发表于:2011-7-21 14:27:00
11#
你按Robert的改一下,看看还有没有问题,另外,我的code里的“headerCell1”也要换成你要点击的那个header的名字。
我的代码只是一个思路,不要直接应用到你的工程里,适当的需要修改一下的。:-)
回复 使用道具 举报
chenf1980
论坛元老   /  发表于:2011-7-21 14:43:00
12#
我当然知道要换成我自己所对应的单元格名称了,问题就是在于换了之后,还是错误的。
If (e.RowIndex = -1) Then
                If e.CellName = "配送予定日" Or e.CellName = "予定時間" Then
                    Dim sortorder As SortOrder = i Mod 2 + 1
                    Dim sortitem1 As New SortItem
                    sortitem1.CellName = "txtYotihiF"
                    sortitem1.SortOrder = sortorder
                    Dim sortitem2 As New SortItem
                    sortitem1.CellName = "txtYoteiTimeF"
                    sortitem1.SortOrder = sortorder
                    Dim mySort() As SortItem = {sortitem1, sortitem2}
                    dw_6.Sort(mySort)
                    TryCast(dw_6.ColumnHeaders(0).Cells(e.CellName), ColumnHeaderCell).SortGlyphDirection = sortorder
                    i = i + 1
                End If
END
回复 使用道具 举报
barrylei
中级会员   /  发表于:2011-7-21 14:53:00
13#
把下面的sortitem1改成sortitem2, 就好了。sortitem2没有设置值,所以会崩了。(不好意思,是我原来的代码copy的时候忘记改了)

   Dim sortitem2 As New SortItem
   sortitem1.CellName = "txtYoteiTimeF"
   sortitem1.SortOrder = sortorder
回复 使用道具 举报
12
您需要登录后才可以回帖 登录 | 立即注册
返回顶部