主题：vars变量

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

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

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

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

 

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

Dim ty As New  Dictionary(Of String, String)

后面怎么来用呢？

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

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

老师，窗口的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
详细错误信息：
给定关键字不在字典中。

老师，如果用：With DataTables(e.Form.TableName)，和我开始使用的：

窗口打开后都定义变量了变量 vars("editTable") =e.Form.TableName，是一样啊，现在有个问题是切换不同页签后，提示的是前面窗口表的名称：

 

问题是我打开了审核流程设置窗口，当前的是，审核流程表，我在切换到：日常费用支付管理，当前表提示还是（审核流程表）

 

 

此主题相关图片如下：999999.png

这种也试过，也有以下问题：

问题一：页签名，和表名必须一致，修改内容太多；

问题二：我打开的委托书管理，但是弹出来的名称是前面页签的名称

 

此主题相关图片如下：1111111.png

前面加入数据字典的方式，判断e.form.name,是正确的 ，但是打开公用的审核窗口是：报错如下：

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

审核窗口,AfterLoad事件代码如下：msgbox(ty(e.form.name))弹出来结果正确后，后面开始报错。

Dim r As Row = Tables(ty(e.form.name)).Current
msgbox(ty(e.form.name))
With Tables("审核意见表")
msgbox(1)
    .Filter = "[ID] = '"& r("ID") &"'"
msgbox(2)
    .Sort = "审核日期"
    .AutoSizeRows() '自动行高
    .ExtendLastCol = True '补充空白列
    .SetHeaderRowHeight(30,30)  '标题栏行高
    .DataTable.SysStyles("EmptyArea").BackColor = Color.White '空白区背景色
    .DataTable.SysStyles("Alternate").BackColor = Color.Azure '交替行颜色
    .grid.Styles("EmptyArea").Border.Color = Color.White  '表格边框颜色
End  With
msgbox(3)
If r("审批状态") = "审批完成" Then
    MessageBox.Show("该单据已审批完成,请勿重复操作!","提示",MessageBoxButtons.OK,MessageBoxIcon.Question)
    e.Form.Controls("TextBox1").Enabled =False
    e.Form.Controls("Button1").Enabled =False
    e.Form.Controls("Button2").Enabled =False
End If
msgbox(4)

 

 

采用字典方式：打开审核窗口报错？这是什么问题呢？

 

此主题相关图片如下：22222222222.png

 

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

审核窗口,AfterLoad事件代码如下：msgbox(ty(e.form.name))弹出来结果正确后，后面开始报错。

Dim r As Row = Tables(ty(e.form.name)).Current
msgbox(ty(e.form.name))
With Tables("审核意见表")
msgbox(1)
    .Filter = "[ID] = '"& r("ID") &"'"
msgbox(2)
    .Sort = "审核日期"
    .AutoSizeRows() '自动行高
    .ExtendLastCol = True '补充空白列
    .SetHeaderRowHeight(30,30)  '标题栏行高
    .DataTable.SysStyles("EmptyArea").BackColor = Color.White '空白区背景色
    .DataTable.SysStyles("Alternate").BackColor = Color.Azure '交替行颜色
    .grid.Styles("EmptyArea").Border.Color = Color.White  '表格边框颜色
End  With
msgbox(3)
If r("审批状态") = "审批完成" Then
    MessageBox.Show("该单据已审批完成,请勿重复操作!","提示",MessageBoxButtons.OK,MessageBoxIcon.Question)
    e.Form.Controls("TextBox1").Enabled =False
    e.Form.Controls("Button1").Enabled =False
    e.Form.Controls("Button2").Enabled =False
End If
msgbox(4)

 

不能，msgbox(ty(e.form.name))也不能弹出，开始能弹出是，我在审核按钮中弹出来的，弹出后打开：审核窗口，相当于审核窗口中的afterload事件用ty(e.form.name)调用不对

Dim r As Row = Tables(ty(e.form.name)).Current
msgbox(ty(e.form.name))

看来用字典这个方式也行不通，只能这样变通处理了：

 

打开页签的窗口定义变量：

vars("editTable") =e.Form.TableName

 

 

审核窗口在定义一个变量，弊端就是 页签名称 必须和 表名一样。不过算是解决了。

Vars("text") = Forms("主窗口").Controls("TabControl1").SelectedPage.text
Dim r As Row = Tables(Vars("text")).Current
msgbox(Vars("text"))
With Tables(“审核意见表”)
.Filter = "[ID] = '"& r("ID") &"'"