框架vba编程指定窗口显示合约? - 高级功能研发区 - 金字塔客服中心 - 专业程序化交易软件提供商

对于包含多个周期窗口的框架, 点击表格中期货主力合约, 希望在日线以下级别窗口中仍然显示该主力合约的K线图, 但是在周线和月线窗口则自动显示对应的期货连续合约的K线图, 下面的代码为什么无法实现切换?

框架名: MyChart, 周线窗口名: WinWeek,

在三个事件中都写了代码, 测试在表格中点击合约 JM09, 结果 TableChangeStock, TableClickStock 两个事件被触发了, 但是周线窗口并没有被切换成 JMLX 合约,

周线窗口不论是设成与表格是同一分组, 还是设成没有分组, 结果都一样

Sub MyChart_TableChangeStock(Grid, Code, Market, Result)

Application.MsgOut "TableChangeStock: Grid.Name=" & Grid.Name &", Code=" & Code & ", Market=" & Market

if Code="JM09" THEN

Application.MsgOut "TableChangeStock JM09"

call MyChart.GetGridByName("WinWeek").ChangeStock("JMLX","DQ")

MyChart.GetGridByName("WinWeek").reInitData

MyChart.Refresh

'MyChart.InitAllGrid

END IF

End Sub

Sub MyChart_TableClickStock(Grid, Code, Market, Result)

Application.MsgOut "TableClickStock: Grid.Name=" & Grid.Name &", Code=" & Code & ", Market=" & Market

if Code="JM09" THEN

Application.MsgOut "TableClickStock JM09"

call MyChart.GetGridByName("WinWeek").ChangeStock("JMLX","DQ")

MyChart.GetGridByName("WinWeek").reInitData

MyChart.Refresh

'MyChart.InitAllGrid

END IF

End Sub

Sub MyChart_ChangeStock(Grid, Code, Market, Result)

Application.MsgOut "ChangeStock: Grid.Name=" & Grid.Name &", Code=" & Code & ", Market=" & Market

if Code="JM09" THEN

Application.MsgOut "ChangeStock JM09"

call MyChart.GetGridByName("WinWeek").ChangeStock("JMLX","DQ")

MyChart.GetGridByName("WinWeek").reInitData

MyChart.Refresh

'MyChart.InitAllGrid

END IF

End Sub

主题：框架vba编程指定窗口显示合约?