以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  不使用多选框用热键多选要怎么改？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=152690)
--  作者：hitzfeld
--  发布时间：2020/7/18 17:42:00
--  不使用多选框用热键多选要怎么改？
狐表如果使用多选框选择记录的代码我是这样写的：
For Each dr1 As Row In Tables("材料表").GetCheckedRows
      Dim dr2 As Row = Tables("采购单.采购明细").AddNew()  
        dr2("名称") = dr1("名称")
        dr2("类型") = dr1("类型")
        dr2("长") = dr1("长")
        dr2("宽") = dr1("宽")
        dr2("高") = dr1("高")
        dr2("型号") = dr1("型号")
Tables("材料表").ClearCheckedRows
Next
e.Form.Close()

但是这样选择有个问题就是，必须开启复选框并点选才有效，我希望能直接点击记录的日益位置就单选，如果按住ctrl点击就多选，按住shift就连续选择，代码要怎么改？感觉就在第一句的GetCheckedRows，但是不知道要改成什么？
--  作者：有点蓝
--  发布时间：2020/7/19 20:10:00
--  
foxtable只能连续选择，不支持按住ctrl点击多选