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

1楼

169163 发表于：2011/11/4 21:18:00

下列代码为何"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

谢谢！

2楼

kylin 发表于：2011/11/4 22:13:00

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

3楼

169163 发表于：2011/11/4 22:29:00

谢谢您！

共3 条记录, 每页显示 10 条, 页签: [1]