看到了，两次代码改动蛮大的呢，第二次虽然不报错了，但怎么打开的时候那么卡，上面的显示好慢啊，都显示不出来的
此主题相关图片如下：qq截图20130906143129.jpg
请问是什么原因啊
，是不是文件损坏了？
第一次的代码
'e.Table.Filter = ""
'Dim s As String
'For Each r As Row In e.Table.Rows
'For i As Integer = 1 To 33
'If r.Index > e.Table.Rows.Count - 1 Then
'For j As Integer = 0 To 5
's + = e.Table.Rows(r.Index + 1)(j) & ","
'Next
'If s.Contains(r(i)) Then
'e.Style = "下期中奖号码"
'End If
'End If
'Next
'Next
Dim s As New List (Of String)
For i As Integer = 1 To 6
s.Add(e.Table.Rows(e.Row.Index + 1)(i))
Next
If e.Col.Name.StartsWith("Y1中奖号_") OrElse e.Col.Name.StartsWith("Y1未中奖号_") Then
If s.Contains(e.Row(e.Col.Name)) Then
e.Style = "下期中奖号码"
End If
End If
————————————————————————————————————————————————————————————————
第二次的
If e.Row.Index > - 1 AndAlso e.Row.Index < e.Table.Rows.Count - 1 Then
Dim s As New List (Of String)
For i As Integer = 1 To 6
s.Add(e.Table.Rows(e.Row.Index + 1)(i))
Next
e.Table.StopRedraw()
If s.Contains(e.Row(e.Col.Name)) Then
e.Style = "下期中奖号码"
End If
e.Table.ResumeRedraw()
End If
加好友 
发短信
Post By：2013/9/5 23:37:00 [显示全部帖子]
Post By：2013/9/6 11:12:00 [显示全部帖子]
Post By：2013/9/6 14:59:00 [显示全部帖子]
，碉堡了