If Forms("窗口1").Opened() Then'
If e.Table.cols.contains("产品编号") AndAlso Tables("窗口1_Table2").cols.contains("产品编号") Then '
Dim t As Table = Tables("窗口1_Table2") '
With Tables("窗口1_Table1") '
If .Current Is Nothing Then
t.Filter = "False"
Else
t.Filter = "产品编号 = '" & .Current("产品编号") & "'"
End If
End With
End If
End If
是上面代码,造成表2不能新增行,如何改?
做了筛选,新增行必须给筛选条件对应的列赋值,比如产品编号,否则不符合条件的行就看不到了。并不是不能新增,只是新增了,但是看不到