为什么目录树节点 第四个双击以后是空白呢
此主题相关图片如下:微信截图_20240528101817.png
Dim filter As String
Dim lx As String = E.node.DataRow("状态")
Dim nm As String = E.node.DataRow("申报公司")
Dim y As Integer = E.node.DataRow("年")
Dim m As Integer = E.node.DataRow("月")
Select Case e.Node.Level
Case 0
Filter = "状态 = '"& lx & "'"
Case 1
Filter = "状态 = '"& lx & "'And 申报公司 = '"& nm & "'"
Case 2
Filter = "状态 = '"& lx & "'And 申报公司 = '"& nm & "'and Year(出保日期) = " & y
Case 3
Filter = "状态 = '"& lx & "'And 申报公司 = '"& nm & "'and Year(出保日期) = " & y & " And Year(出保日期) = " & m
MessageBox.Show(filter)
End Select
DataTables("保险清单").loadFilter = Filter
DataTables("保险清单").load()