烦请优化:
If (e.DataCol.name="文化程度" Or e.DataCol.name="等级" Or e.DataCol.name="专业") And e.DataRow("姓名")<>Nothing
With DataTables("人员基本信息表")
.ReplaceFor("文化程度1", 0,"[姓名]<>' '")
.ReplaceFor("文化程度1", 12,"[文化程度] = 'AA'")
.ReplaceFor("文化程度1", 10,"[文化程度] = 'AB'")
.ReplaceFor("文化程度1", 8,"[文化程度] = 'CCC'")
.ReplaceFor("文化程度1", 6,"[文化程度] = 'VF'")
.ReplaceFor("文化程度1", 6,"[文化程度] = 'AK'")
.ReplaceFor("文化程度1", 4,"[文化程度] = 'BK'")
.ReplaceFor("文化程度1", 0,"[文化程度] = 'CZ'")
.ReplaceFor("文化程度1", 0,"[文化程度] = 'XX'")
.ReplaceFor("等级1", 0,"[姓名]<>' '")
.ReplaceFor("等级1", 13,"[等级] = 'A'")
.ReplaceFor("等级1", 10,"[等级] = 'B'")
.ReplaceFor("等级1", 8,"[等级] = 'C'")
.ReplaceFor("等级1", 6,"[等级] = 'D'")
.ReplaceFor("专业1", 0,"[姓名]<>' '")
.ReplaceFor("专业1", 12,"[专业] = 'AA'")
.ReplaceFor("专业1", 10,"[专业] = 'BB'")
.ReplaceFor("专业1", 6,"[专业] = 'CC'")
End With
Dim dr As DataRow=e.DataRow
dr("maxl")=math.max(math.max(dr("专业1"),dr("等级1")),dr("文化程度1"))
End If
慢的原因是?谢谢!