以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何让表属性在窗口里也起作用？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=153326)
--  作者：gudao123456
--  发布时间：2020/8/6 23:17:00
--  如何让表属性在窗口里也起作用？
在表属性里设定了一些表事件，但是在窗口里已不再起作用，如何能让这些事件在窗口也起作用？谢谢！

同样的，一些系统菜单按钮在窗口里也不起作用，如果解决？ 谢谢
[此贴子已经被作者于2020/8/6 23:18:14编辑过]
--  作者：有点蓝
--  发布时间：2020/8/6 23:25:00
--  
如果是sqltable、sqlquery，只能重新复制代码到窗口表事件。如果使用了fill、DataSource，需要到全局表事件处理：http://www.foxtable.com/webhelp/topics/0671.htm

具体哪些系统菜单按钮？都可以使用代码处理的
--  作者：gudao123456
--  发布时间：2020/8/6 23:36:00
--  
谢谢！ 比如，向下填充、显示重复值等
[此贴子已经被作者于2020/8/6 23:38:42编辑过]
--  作者：有点蓝
--  发布时间：2020/8/7 8:34:00
--  
显示重复值：http://www.foxtable.com/webhelp/topics/2712.htm

向下填充：
重复填充
With Tables("表B")
    If .TopPosition >=0 AndAlso .TopPosition < .BottomPosition
        Dim r As Row = .Rows(.TopPosition)
        For i As Integer = .TopPosition+1 To .BottomPosition
            .Rows(i)("第一列") = r("第一列")
        Next
    End If
End With

序列填充
With Tables("表B")
    If .TopPosition >=0 AndAlso .TopPosition < .BottomPosition
        Dim r As Row = .Rows(.TopPosition)
        Dim idx As Integer = r("第一列")
        For i As Integer = .TopPosition+1 To .BottomPosition
            idx = idx + 1
            .Rows(i)("第一列") = idx
        Next
    End If
End With