以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 请教 处理复选框  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=83462)

--  作者:FOTOER
--  发布时间:2016/4/9 17:05:00
--  [求助] 请教 处理复选框
处理复选框
取消复选框的时候用的是:Tables("表A").ClearCheckedRows
但是以下代码不起作用,只有用鼠标单击取消时才有作用。该怎么处理这种情况?
If e.Row.Checked  = False 
    e.Row("第一列") = e.Row("第一列") - 1
End If

--  作者:Hyphen
--  发布时间:2016/4/9 17:13:00
--  
测试没有问题,上传例子或者完整事件代码看看
--  作者:FOTOER
--  发布时间:2016/4/9 17:51:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:复选行.zip


--  作者:FOTOER
--  发布时间:2016/4/9 18:44:00
--  
请大家给看看咋回事,上面的例子做的不完善,见谅。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:复选行.zip


--  作者:FOTOER
--  发布时间:2016/4/10 10:31:00
--  
顶顶
--  作者:Hyphen
--  发布时间:2016/4/10 15:24:00
--  
ClearCheckedRows没有触发AfterCheckRow事件

改成
Dim rs As List(of Row) = Tables("订单").GetCheckedRows()
For Each r As Row In rs
    r.Checked  = False
Next