主题：执行速度很慢，请老师优化！

烦请优化：

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

慢的原因是？谢谢！