左边目录树代码:Dim Filter As String
If e.node.Text = "显示所有数据" Then
Filter = ""
Else
Dim dr As DataRow = e.Node.DataRow '获取生成此节点的DataRow
Select Case e.Node.Level
Case 0
Filter ="[年] = '" & dr("年") & "'"
Case 1
Filter ="[年] = '" & dr("年") & "' And [月] = '" & dr("月") & "'"
End Select
End If
Tables("工商户清单.开piao清单").Filter = Filter
新增行代码:
Dim dr As Row = Tables("开piao清单_Table1").Current
If dr.DataRow.RowState = DataRowState.Added Then
MessageBox.show("请先保存上方工商户清单的对应行后再增加开piao清单记录,谢谢!","提示")
Else
Tables("工商户清单.开piao清单").AddNew
End If
问题:因为工商户清单.开piao清单数据行较多,希望先点击筛选出年,再新增行,但是新增的行
在窗口的TABLE中看不到,非要在显示所有数据状态下再可以,请教,谢谢!