Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共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:00
Case 3
            Filter = "状态 = '"& lx & "'And 申报公司 = '"& nm & "'and Year(出保日期) = " & y & " And month(出保日期) = " & m
共2 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .01563 s, 2 queries.