以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  【求助】移动单元格和改变全局变量问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=143514)
--  作者：狐表（小白）
--  发布时间：2019/11/27 14:18:00
--  【求助】移动单元格和改变全局变量问题
各位老师，举例：有两个窗口：
窗口1表table1有三列“姓名”、“”部门“”，“职位“，通过提取部门列的值作为变量；每次根据变化焦点单元格的值，来改变全局变量“gxmc”的值并打开窗口2；
窗口2“销售分析”；通过获取“gxmc”的值来显示不同部门的分析图表；并且在窗口2计时器代码执行窗口关闭时，通过afterclose改变全局变量“i”的值来移动窗口1table1的当前行位置；
通过设置table1窗口的双击事件代码，手动双击“部门”列不同行的值来测试窗口2显示不同部门图表的功能已经解决了，现在想通过增加计时器代码自动模拟鼠标点击，实现窗口1当前行循环自动切换；该怎么解决？
问题：
1、怎么在打开窗口1加载数据后，单元格坐标就固定在第二列“部门”的第一行：tables("table1")（0，"部门"）;
2、代码控制当前行移动到下一行时，焦点单元格坐标也移动到下一行：tables("table1")（1，"部门"）;
3、移动到最后一行时回到第一行；依次类推......
4、窗口2的afterclose的变量“i”的值循环变化怎么解决；
5、窗口1的部门列的行是动态生成的；

这段table1的计时器代码怎么改？谢谢！

定义一个整数型全局变量 “i” 初始值为0：

Dim tbl As Table = Tables("窗口1_Table1")
Dim tb As String
tb = Tables(e.form.name & "_Table1").Value(0,"部门")
If Vars("i") = 0 Then
    tb = tbl.Value
    e.Cancel = True
    If tbl.Value IsNot Nothing Then
        Vars("gxmc")  = tbl.Current("部门")
        Forms("销售分析").Show    \'窗口关闭时 i 的值等于1代码写在窗口的afterclose下
        If tbl.Position < tbl.Rows.Count - 1
            tbl.Position = tbl.Position + 1
        Else
            tbl.Position = 0
        End If
    End If
ElseIf Vars("i") = 1 Then
    tb = tbl.Value
    e.Cancel = True
    If tbl.Value IsNot Nothing Then
        Vars("gxmc")  = tbl.Current("部门")
        Forms("销售分析").Show    \'窗口关闭时 i 的值等于2代码写在窗口的afterclose下
        If tbl.Position < tbl.Rows.Count - 1
            tbl.Position = tbl.Position + 1
        Else
            tbl.Position = 0
        End If
    End If
ElseIf   vars("i") = 2 Then
    代码3.....
ElseIf   vars("i") = 3 Then
    代码4.....
    .....
End If
[此贴子已经被作者于2019/11/27 14:19:04编辑过]
--  作者：有点蓝
--  发布时间：2019/11/27 14:28:00
--  
窗口1afterload
\'其它加载数据代码
 Tables("窗口1_Table1").select(0, Tables("窗口1_Table1").cols("部门").index)

移动行的用法
if Tables("窗口1_Table1").position = Tables("窗口1_Table1").rows.count - 1 then
Tables("窗口1_Table1").position = 0
else
Tables("窗口1_Table1").position = Tables("窗口1_Table1").position + 1
end if
 Tables("窗口1_Table1").select(Tables("窗口1_Table1").position, Tables("窗口1_Table1").cols("部门").index)
--  作者：狐表（小白）
--  发布时间：2019/11/27 14:53:00
--  
谢谢老师！