主题：窗口数据

方式一，使用数据绑定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

 

 

上传例子