主题：窗口数据

请问个给位狐友大神们
此主题相关图片如下：转移窗口.png

方式一，使用数据绑定http://www.foxtable.com/help/topics/0704.htm

 

方式二，赋值

If Tables("表名").Current IsNot Nothing Then

    e.Form.Controls("TextBox1").Text = Tables("表名").Current(""资产名称)
    '其它控件类推

End If

设备转移窗口是个共有窗口   而在每个设备表里面都有一个设备转移的按钮  通过按钮点击打开设备转移窗口并加载当前所选择行的数据  而且在设备转移窗口点击确定转移后能根据设备/模具保存到相对应的表  要什么实现呢 ？

使用全局变量记录表名，比如设备转移的按钮打开窗口前赋值vars("当前表") = "设备表1"

 

With Tables(vars("当前表"))
    If .Current IsNot Nothing Then
       
        e.Form.Controls("TextBox1").Text = .Current(""资产名称)
        '其它控件类推
       
    End If
End With

 

或者

 

Select Case vars("当前表")
   
    Case "设备表1"
        ......
    Case "设备表2"
        ......
End Select

 

 

还是不行

上传例子

如进入超声波窗口的时候 点击设备转移后自己添加当前所在的行的数据输入，

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:固定资产管理项目1.rar

 确定转移后能按设备类和模具类保存到各自的表  并且删除超声波窗口内所选的行的数据

1、表格设置有问题啊，没必要一种资产一个表啊，把所有的内容合并到一个表，加一列资产名称区分就行啊。

 

2、

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:固定资产管理项目1.zip

   太感谢大红袍了  之前没接触过这个思路不太清晰  

如果像你说的把所有的设备都集中到一个表里面   让后在主界面放个导航添加各个设备的按钮  单击时在设备录入界面里只显示该种设备  要什么做这个筛选呢 ？