主题：[分享] 飞的日历，接着改。（20140109改）

看的有点不大明白

我能看懂这段的意思 双击标签 打开窗口来获取当前标签在数据库中的位置

这个Vars("个人事务_ID") 是通过什么方法获取到的 或者说是如何写入数据库的

Dim id As Integer = Vars("个人事务_ID")
Dim tb As Table = Tables("个人事务")

If id > 0 Then   '不属于新增
    Dim dr As DataRow = tb.DataTable.Find("[_Identify] =" & id)
    If dr Is Nothing Then Return

Vars("个人事务_ID") 是在双击 个人事务表 的时候用的

事务标签  传递数据 是用      全局代码中的   Private TaskContent As List(Of String) '用户传递数据

事件的触发是用   Private Sub My_日历标签_MouseDoubleClick  事件 传递给 Functions.Execute("事务_标签被双击",sender,e,TaskContent)

我在 事务_事务布局 函数中，定义标签的时候，只用了         Dim a As new My_事务标签(n_主题 ,2,new List(of String))

并没有实际传递，所以你要自己 加上去

最后在 事务_标签被双击 函数中取回 （Dim 标题内容 As List(Of String) = Args(2)   '当初怎么传入的现在就怎么取出）

用 标题内容 来做相应的赋值或传递，这时候就可以对Vars("个人事务_ID") 赋值了

另外，狐爸给全局代码加了分类，自定义类会更加方便，所以我打算重写这个案例，做进一步封装。

期待逛逛老师的改进  我暂时先用自己设计的简陋的用吧