主题：vars变量

老师，我独立窗口（添加到页签的），窗口打开后都定义变量了变量 vars("editTable") =e.Form.TableName

后面录入窗口（或是审核窗口-通用的）用的模式窗口，可以直接用vars("editTable")

当我打开多个页签时，vars("editTable") 变量会出现混淆情况，这种有什么方法解决呢？

定义一个全局变量的字典，窗口名称做主键，表名称做值

请老师指导一下具体怎么定义，怎么用？

 

好好学学编程基础

老师，比如我全局代码定义：

Dim ty As New  Dictionary(Of String, String)

后面怎么来用呢？

全局代码定义：

public ty As New  Dictionary(Of String, String)

使用

 ty.add(e.Form.Name，e.Form.TableName)

老师，还是没用来，来个实际的用法指导一下：比如我要分页加载：改怎么调用这个字典？

With DataTables( )
.LoadFilter = ""
.LoadPage = 0  '加载第一页
.LoadTop = e.Form.Controls("ComboBox1").Value   '每页20行
.LoadOver =  "序号" '加载依据列
.Load()
.LoadPage = .TotalPages -1  '加载最后一页数据
.Load()
e.Form.Controls("TextBox1").Value = .TotalPages & "/" & .TotalPages
End  With

With DataTables(ty(e.Form.Name) )

老师，窗口的afterload事件代码如下：

 

ty.add(e.Form.Name,e.Form.TableName)
msgbox(ty(e.Form.Name))
With DataTables(ty(e.Form.Name))
    .LoadFilter = ""

 

会报错提示：

 

.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2020.1.19.19
错误所在事件：窗口,日常费用支付管理,AfterLoad
详细错误信息：
已添加了具有相同键的项。

 

 

窗口打开后，在另一个独立窗口调用代码如下：

Dim r As Row =Tables(ty(e.Form.Name)).Current
With Tables("审核意见表")
    .Filter = "[ID] = '"& r("ID") &"'"
    .Sort = "审核日期"

会报错提示：

.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2020.1.19.19
错误所在事件：窗口,审核窗口,AfterLoad
详细错误信息：
给定关键字不在字典中。

判断一下，如果添加过就不要重复添加了