下面代码中,黄底部分加上去后,效率执行太低下了,才10条不到的需要绘制的数据,要执行2秒,老师帮我看看是不是代码用的不合理。
DrawCell事件
If e.Table.Rows.Count >0 Then
e.Table.DataTable.AddUserStyle("样式1", Color.Yellow,Color.Black)
e.Table.DataTable.AddUserStyle("样式2", Color.Blue,Color.Black)
Dim t As Table = Tables("生产计划通知单")
If e.Row("生产计划编号") = t.Current("生产计划编号") Then
e.style = "样式1"
Else
Dim ls As List(Of String) = DataTables("生产计划通知单").SQLGetValues("生产计划编号" , "[通知类型] = '" & t.Current("通知类型") & "'")
If ls.Contains(e.Row("生产计划编号")) Then
e.style = "样式2"
End If
End If
End If
[此贴子已经被作者于2015/9/8 8:30:23编辑过]