不使用多选框用热键多选要怎么改？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

狐表如果使用多选框选择记录的代码我是这样写的：

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

e.Form.Close()

但是这样选择有个问题就是，必须开启复选框并点选才有效，我希望能直接点击记录的日益位置就单选，如果按住ctrl点击就多选，按住shift就连续选择，代码要怎么改？感觉就在第一句的GetCheckedRows，但是不知道要改成什么？

主题：不使用多选框用热键多选要怎么改？