以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  窗口打开后光标总是在表A的第一行如何实现？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=194698)
--  作者：lgz518
--  发布时间：2025/1/6 20:07:00
--  窗口打开后光标总是在表A的第一行如何实现？
窗口打开后光标总是在表A的第一行如何实现？
--  作者：有点蓝
--  发布时间：2025/1/6 20:11:00
--  
窗口afterload

tables(“表A").select(0,0)
--  作者：lgz518
--  发布时间：2025/1/7 9:35:00
--  
afterload
Dim t As Table = Tables("表A")
With Tables("主表")
    If .Current Is Nothing Then
        t.Filter = "False"
    Else
        t.Filter = "项目 = " & .Current("项目")
    End If
End With

tables(“主表").select(0,0)



CurrentChanged
If Forms("窗口2").Opened() Then\'

    Dim t As Table = Tables("表A")
    With Tables("主表") \'
        If .Current Is Nothing Then
            t.Filter = "False"
        Else
            t.Filter = "项目 = \'" & .Current("项目") & "\'"
        End If
    End With
End If

注：主表与表A是模拟关联，表A是明细表
1.不模拟关联时，执行蓝代码正常；
2. 模拟关联时，执行上面代码，失效,如何解决？；
--  作者：有点蓝
--  发布时间：2025/1/7 9:52:00
--  
t.select(0,0)
tables(“主表").select(0,0)