此主题相关图片如下:猎豹截图20230114074432.png
如图所示,“装备栏1”……的代码是
AfterSelChange里
Dim c As Col = e.Table.Cols(e.NewRange.ColSel)
Select Case c.name
Case "装备栏1"
If Forms("窗口1").opened() Then
Tables("窗口1_Table1").Filter = "阶级 <= '" & e.Table.Current("可装备阶数") & "' and (元素 = '" & e.Table.Current("元素") & "' or 元素亲和 = '" & e.Table.Current("元素") & "') and 类型 = '" & e.Table.Current("装备栏1") & "'"
End If
但这只能单项,如果是多值时就不行,救助代码应该如何修改?
另外还有一个问题,如何让窗口绑定的表的列项与原表一致?
原表有10列,隐藏了5列,显示5列,窗口绑定的表如何完全一样?