我在副本表做了目录树,在nodemouseclick事件中代码如下,但在点节点时,发生下图的错误,请问我该如何修改代码:
Dim Filter As String
Dim dr As DataRow = e.Node.DataRow '获取生成此节点的行
If e.Node.Text <> "日期筛选" Then
Select Case e.Node.Level
Case 0
Filter = "[年] = '" & dr("年") & "'"
Case 1
Filter = "[年] = '" & dr("年") & "' And [月] = '" & dr("月") & "'"
Case 2
Filter = "[年] = '" & dr("年") & "' And [月] = '" & dr("月") & "' And [日] = '" & dr("日") & "'"
End Select
End If
Tables(e.Form.Controls("Table12").Table.DataTable).Filter = Filter
错误提示:
此主题相关图片如下:微信截图_20190711143110.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2019-7/201971114341478428.png)