主题：动态绑定数据表

 你说的不起作用是什么意思？如果无效，说明你没有打开 园区档案 窗口

Forms("园区档案").open
If forms("园区档案").opened Then
    Tables("园区档案_Table1").DataSource = DataTables("园区")
    Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
    trv.BuildTree("园区", "所属分公司|编号")
End If