找到了，影响我速度的原来是下面这段绘制的代码：请问有什么方法可以加快一下速度呢？
If e.Col.Name <> "标记" AndAlso e.Row.IsNull("标记") = False Then
Dim s As String = e.Row("标记")
Dim mh1 As String = System.Text.RegularExpressions.Regex.Match(s,"\d+").Tostring()
Dim mh2 As String = System.Text.RegularExpressions.Regex.Match(s,"[A-Za-z]+\d+").Tostring()
Dim fdr As DataRow = e.Table.DataTable.SQLFind("客户订单号 = '" & mh1 & "' and 物料代码 = '" & mh2 & "' ")
If fdr IsNot Nothing Then
If fdr(e.Col.Name) <> e.Row(e.Col.Name) Then
e.Style = "变更"
End If
End If
End If
加好友 
发短信
Post By：2014/11/24 22:41:00 [显示全部帖子]
