If e.Table.current Is Nothing Then Return
Select Case e.Table.Name
Case "通用(單選)目錄樹窗口_动态选表ok_独立SQL_Table1"
If Forms("通用(單選)目錄樹窗口_动态选表ok_独立SQL").Opened
Forms("通用(單選)目錄樹窗口_动态选表ok_独立SQL").Controls("TextBox3").text= e.Table.current("产品")
End If
End Select
--------------
If DataTables.Contains( e.Form.Controls("ComboBox表").Text ) Then
Tables(e.Form.Name & "_Table1").DataSource = DataTables( e.Form.Controls("ComboBox表").Text )
Tables(e.Form.Name & "_Table1").DataTable.GlobalHandler.CurrentChanged = True