以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  下列代码为何"xl1"不发生变化？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=14010)
--  作者：169163
--  发布时间：2011/11/4 21:18:00
--  下列代码为何"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

 

谢谢！
--  作者：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
--  作者：169163
--  发布时间：2011/11/4 22:29:00
--  

谢谢您！