| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 怎样获取用鼠标拖动所选择到的选中行 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=177857) |
| -- 作者：fvcfox -- 发布时间：2022/6/7 17:24:00 -- 怎样获取用鼠标拖动所选择到的选中行 如把选中的行复制到temp表 |
| -- 作者：有点蓝 -- 发布时间：2022/6/7 17:34:00 -- 参考：http://www.foxtable.com/webhelp/topics/1597.htm With Tables("订单") For i As Integer =.TopPosition To.BottomPosition Dim dr2 As DataRow = DataTables("temp").AddNew() For Each dc As Col In.Cols dr2(dc.Name) =.Rows(i)(dc.name) Next Next End With |
| -- 作者：fvcfox -- 发布时间：2022/6/7 21:31:00 -- 为什么下列代码不能删除所选择的行，只删除了一半记录 Dim tb As Table = Tables("表A") If tb.TopPosition > -1 Then \'如果选定区域包括数据行 Dim Result As DialogResult Result = MessageBox.Show("是否要删除选择行 ？", "注意", MessageBoxButtons.YesNo, MessageBoxIcon.Question) If Result = DialogResult.Yes Then For i As Integer = tb.TopPosition To tb.BottomPosition tb.Rows(i).Delete Next End If End If
|
| -- 作者：有点蓝 -- 发布时间：2022/6/7 21:42:00 -- 参考：http://www.foxtable.com/webhelp/topics/0599.htm |