共2 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：目录树节点 第四个双击以后是空白呢
1楼
lfz123 发表于：2024/5/28 10:24:00 为什么目录树节点 第四个双击以后是空白呢
此主题相关图片如下：微信截图_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()
2楼
有点蓝 发表于：2024/5/28 10:33:00Case 3
Filter = "状态 = '"& lx & "'And 申报公司 = '"& nm & "'and Year(出保日期) = " & y & " And month(出保日期) = " & m
共2 条记录, 每页显示 10 条, 页签:
[1]