If Forms("主窗口").Opened() Dim t As DataTable = DataTables("事项进度") With Tables("主表") If .Current Is Nothing Then t.loadFilter = "False" Else t.loadFilter = "编号='" & .Current("编号") & "'" DataTables("事项进度").Load End If End With End If 此主题相关图片如下:搜狗截图21年10月01日1049_1.png