以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  为何TABLE的复选框选不上呢?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=55555)
--  作者：zhchling
--  发布时间：2014/8/19 10:16:00
--  为何TABLE的复选框选不上呢?

Dim zcls As String =zcl.Replace(" ","")

For Each r As Row In Tables("选房窗口_table1").Rows

  
    If zcls.Contains( r("房间号") )    Then
         messagebox.show("you")     \' 这里能显示"you"
        r.Checked = True
    End If
Next

 

 

红色代码可以被执行到,但复选框没有被勾选上, 谁能知道代码错在哪里?
--  作者：有点甜
--  发布时间：2014/8/19 10:20:00
--  

 你说的复选框，是表格最左边的那个吗？不可能不能勾选。

 

 如果不能，就是你在表格BeforeCheckRow写了取消的代码
--  作者：zhchling
--  发布时间：2014/8/19 10:23:00
--  

BeforeCheckRow  里面没有代码,

 

aftercheckrow 里面的代码都被我 注释掉了,

 

还是不行
--  作者：有点甜
--  发布时间：2014/8/19 10:23:00
--  
 那就不可能，做个简单例子发上来。
--  作者：zhchling
--  发布时间：2014/8/19 12:38:00
--  

我找到原因了. 是因为代码后面还有这两行排序的代码,

把排序的代码移到前面就可以勾选了.

 

Tables("选房窗口_table1").Sort = "房型"
Tables("选房窗口_table2").Sort = "房型"