以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  动态定义按钮对应表  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=55300)
--  作者：yifan3429
--  发布时间：2014/8/14 9:13:00
--  动态定义按钮对应表
With Tables("员工")
     If .Current IsNot Nothing AndAlso .Current.DataRow.RowState = DataRowState.Unchanged Then \'如果当前行未曾修改
        .Position = .Position - 1 
    End If
End With

上面的窗口代码  属于　员工　　表做好窗口后我把他存为模板下次调用
　　
但是下次是　　部门表　　　需要大量的修改
　　
怎样让他自动对应所属表，不用每次修改
--  作者：Bin
--  发布时间：2014/8/14 9:18:00
--  
你这个代码是在窗口中的?

定义一个Var变量   例如vars("表名") 

With Tables(vars("表名"))
     If .Current IsNot Nothing AndAlso .Current.DataRow.RowState = DataRowState.Unchanged Then \'如果当前行未曾修改
        .Position = .Position - 1 
    End If
End With

在窗口的AlterLoad事件中 为vars("表名")赋值

vars("表名") ="部门表"


这样,你只需要更改窗口AlterLoad事件中的VAR变量的赋值代码即可
--  作者：yifan3429
--  发布时间：2014/8/14 10:06:00
--  
谢谢！学习了