- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 常用按键事件问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=184305)
-- 发布时间：2022/12/2 9:21:00
-- 常用按键事件问题
常用按键事件问题
1.关于删除的问题
If Tables("订单").Current IsNot Nothing Then
Tables("订单").Current.Delete
End If
这个代码是实现删除。
问题一：如何实现，单击删除按键，弹出提示窗口，提问是否删除，如果是，则删除，否，则取消？
问题二：上面代码是一次只删除一条行，如何实现在明细表鼠标选中多行或直接清空当前窗口上的明细表的数据，只对当前窗口，不是能册后台数据？
2，增加多行
Syscmd.Row.AddNews(10)，这个是增加多行，
问题三：窗口上有二张或多张表，只想让订单表实行增加多行，如何实现？
-- 发布时间：2022/12/2 9:37:00
--
1、http://www.foxtable.com/webhelp/topics/0326.htm
2、遍历处理，比如：http://www.foxtable.com/webhelp/topics/1438.htm、http://www.foxtable.com/webhelp/topics/1597.htm
3、tables("订单").AddNews(10)
-- 发布时间：2022/12/2 11:08:00
--
问题一：插入报错，提示此表不支持插入，是副表不能插入？
Tables("模拟关联_订单").InsertNew()
问题二：鼠标选中多条，只删除一条，如何实现选中多条删除？
\'鼠标选中删除
With Tables("订单")
If .TopPosition > -1 Then \'如果选定区域包括数据行
For i As Integer = .TopPosition To .BottomPosition
.Rows(i).Delete
\' Tables("订单").Current.Delete
\' If .Current IsNot Nothing Then
\' .Current.Delete
\' End If
Next
End If
End With
问题三：如何实现当前窗口明细表多条？
下面代码，执行，只删除一条，没有实现删除当前窗口明细多条记录
With Tables("订单")
If .Current IsNot Nothing Then
.Current.Delete
End If
End With
-- 发布时间：2022/12/2 11:21:00
--
1、参考：http://www.foxtable.com/webhelp/topics/1791.htm
-- 发布时间：2022/12/2 11:50:00
--
1.是要用代码，不要狐表菜单功能，能实现？
2.测试下面代码还是单条删除，不能执行选中多条删除？
With Tables("订单")
For i As Integer = .BottomPosition To .TopPosition Step - 1
.Rows(i).Delete()
Next
End With
3，或换窗口上表复选框选中，删除如何实现？
-- 发布时间：2022/12/2 11:59:00
--
4.如何取消当前窗口上表的快捷菜单？
快捷菜单中的列操作命令
右击表中任何一个单元格，在弹出的快捷菜单中有一个“列相关”菜单，此菜单会列出大部分和列相关的命令：
-- 发布时间：2022/12/2 12:12:00
--
1、必须在菜单里勾选添加插入行功能，或者到后台数据库里给表增加一个_sortkey列 .无法使用代码处理
2、说明只选中了一条数据。如果是操作副本表，参考：http://www.foxtable.com/webhelp/topics/1906.htm
-- 发布时间：2022/12/2 12:52:00
--
e.Cancel = True 放在这个在单个表有效，放在全局表事件无效，想全部禁止，不使用快捷菜单，一张张设太费，如何实现全部禁用？
-- 发布时间：2022/12/2 13:31:00
--
全局表事件要开启才有效：http://www.foxtable.com/webhelp/topics/0671.htm
如果所有表都不需要快捷菜单，可以导入系统菜单，然后把不需要的菜单删除掉http://www.foxtable.com/webhelp/topics/1079.htm