以下内容为程序代码:

1 Sub MyChart_TableChangeStock(Grid, Code, Market, Result)
2     Application.MsgOut "TableChangeStock: Grid.Name=" & Grid.Name &", Code=" & Code & ", Market=" & Market
3     if Code="JM09" THEN
4         Application.MsgOut "TableChangeStock JM09"
5         call MyChart.GetGridByName("WinWeek").ChangeStock("JMLX","DQ")
6         MyChart.GetGridByName("WinWeek").reInitData
7         MyChart.Refresh
8         \'MyChart.InitAllGrid
9     END IF
10
11 End Sub
12
13
14 Sub MyChart_TableClickStock(Grid, Code, Market, Result)
15     Application.MsgOut "TableClickStock: Grid.Name=" & Grid.Name &", Code=" & Code & ", Market=" & Market
16     if Code="JM09" THEN
17         Application.MsgOut "TableClickStock JM09"
18         call MyChart.GetGridByName("WinWeek").ChangeStock("JMLX","DQ")
19         MyChart.GetGridByName("WinWeek").reInitData
20         MyChart.Refresh
21         \'MyChart.InitAllGrid
22     END IF
23 End Sub
24
25
26 Sub MyChart_ChangeStock(Grid, Code, Market, Result)
27     Application.MsgOut "ChangeStock: Grid.Name=" & Grid.Name &", Code=" & Code & ", Market=" & Market
28     if Code="JM09" THEN
29         Application.MsgOut "ChangeStock JM09"
30         call MyChart.GetGridByName("WinWeek").ChangeStock("JMLX","DQ")
31         MyChart.GetGridByName("WinWeek").reInitData
32         MyChart.Refresh
33         \'MyChart.InitAllGrid
34     END IF
35 End Sub
36