主题：下列代码为何"xl1"不发生变化？

If e.DataCol.name="xl"
  Dim dr As String
  dr= trim(e.DataRow("xl"))

  Select Case dr
    Case "高中"
      e.DataRow("xl1")="1"
    Case "初中"
      e.DataRow("xl1")="2"

  End Select
End If