使用全局变量

假定我们规定表A每天只能增加500行，我们分别看看如何用Public变量和Var变量来完成这个任务。

使用Public变量

1、在全局代码定义一个名为Count的整数型变量，用于记录已经增加的行数：

2、在表A的DataRowAdded事件中加入代码：

Count = Count + 1

这样每增加一行，变量Count就会增加1

3、然后在表A的DataRowDeleted事件中加入代码：

Count = Count - 1

这样每删除一行，变量Count就会减1

4、最后在表A的BeforeAddDataRow事件中加入代码：

If Count >= 500 Then '如果已经增加了500行
    Messagebox.Show("每天只能在表A中增加500行!","提示")
    e.Cancel = True '那么取消增加行
End If

使用Var变量

1、在全局变量管理窗口，加入一个名为Count的整数型Var变量，用于记录已经增加的行数：

2、在表A的DataRowAdded事件中加入代码：

Vars("Count") = Vars("Count") + 1

这样每增加一行，变量Count就会增加1

3、然后在表A的DataRowDeleted事件中加入代码：

Vars("Count") = Vars("Count") - 1

这样每删除一行，变量Count就会减1

4、最后在表A的BeforeAddDataRow事件中加入代码：

If Vars("Count") >= 500 Then '如果已经增加了500行
    Messagebox.Show("每天只能在表A中增加500行!","提示")
    e.Cancel = True '那么取消增加行
End If

这个例子并没有多少实际的意义，重新打开项目，我们又可以增加500行了，不过这个例子很好地说明了如何使用全局变量在不同的事件中传递和共享数据。

如果要跟踪Var变量值的变化，可以使用事件：GlobalVariableChanged