以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]表事件  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=100985)

--  作者:yupeng
--  发布时间:2017/5/22 23:13:00
--  [求助]表事件

老师  您好

   表设置了复选框,AfterCheckRow事件代码如下,当我删除行时,出现下图错误。请问要怎么修改代码? 谢谢

If e.Row.Checked  Then
    For Each r As Row In e.Table.GetCheckedRows \'遍历所有已经勾选的行
        If r("_Identify") <> e.Row("_Identify") Then \'如果不是本行
            r.Checked  = False \'取消勾选此行
        End If
    Next
End If

 

 


此主题相关图片如下:121dsgjhkttyt.jpg
按此在新窗口浏览图片

--  作者:有点色
--  发布时间:2017/5/23 9:24:00
--  
 测试没问题,请上传实例测试。
--  作者:yupeng
--  发布时间:2017/5/23 10:53:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:qq截图201705231dds05038.jpg
图片点击可在新窗口打开查看
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:复选问题.rar


--  作者:有点色
--  发布时间:2017/5/23 11:10:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.foxdb


--  作者:yupeng
--  发布时间:2017/5/23 11:24:00
--  

老师  如果删除的是最后一行,还是出错,其它行没有问题。谢谢

 


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20170523as23112248.jpg
图片点击可在新窗口打开查看


--  作者:有点色
--  发布时间:2017/5/23 12:04:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.foxdb