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

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

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

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

End Select
End If

谢谢！

谢谢您！