If Forms("窗口1").Opened() Then'
Dim t As Table = Tables("表B")
With Tables("表A") '
If .Current Is Nothing Then
t.Filter = "False"
Else
' t.Filter = "日期 = '" & .Current("日期") & "'"
t.Filter = "班级 = '" & .Current("班级") & "'"
' t.Filter = "课程 = '" & .Current("课程") & "'"
End If
End With
End If
也不行。
[此贴子已经被作者于2023/9/18 10:36:54编辑过]
execl模板仅支持直接关联,模拟关联用不了。使用专业报表吧,不复杂的也可以使用窗口打印

此主题相关图片如下:1.png

[此贴子已经被作者于2023/9/18 20:37:27编辑过]