Foxtable(狐表) → 用户栏目 → 专家坐堂 → 窗口设计，fill两次执行结果不同


  共有2683人关注过本帖树形打印复制链接

主题：窗口设计，fill两次执行结果不同
帅哥哟，离线，有人找我吗？
lsjt_1979
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：38 积分：332 威望：0 精华：0 注册：2020/12/12 14:26:00 		窗口设计，fill两次执行结果不同  发帖心情 Post By：2021/1/15 18:22:00 [只看该作者]

老师好：
我在查询窗口中用combobox和目录树配合，当第一次选择所有数据时，执行结果没有问题，显示所有列，当选择其他选项后，再重新选择所有数据，结果显示的还是之前的数据，没有恢复到所有数据

图片点击可在新窗口打开查看此主题相关图片如下：161070115067(1).png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：1111610705101(1).png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：1610705142111(1).png
图片点击可在新窗口打开查看


Dim Filter As String
Dim txt As WinForm.ComboBox = e.Form.Controls("ComboBox1")

If  Tables("对账单主界面_Table1").Rows.Count>0 Then
    Dim dr As DataRow = e.Node.DataRow '获取生成此节点的行
    If txt.Value="所有数据" Then
        If e.Node.Text <> "显示所有列" Then
            Sel ect Case e.Node.Level
                Case 0
                    Filter = "[年度] = '" & dr("年度") & "'"
                    Tables("对账单主界面_Table1").Filter = Filter
                    Tables("对账单主界面_Table1").SetColVisibleWidth("月份|40|订单编号|110|箱型|60|箱号|60|承运方|60|铁路运费|60|报关行|60|报关费|60|车队|60|拖车费|60|装箱货场|60|装箱费|60|加固队|60|加固费|60|代码公司|60|境外运费USD|60|单据费|60|单证公司|60|单证费|60|口岸代理|60|查验费|60|滞留费|60|放射放行费|60|退运运费|60|落地交付费|60|人民币杂费|60|美元杂费|60|卖箱公司|60|买箱款|60|备注|60")
                    
                Case 1
                    Filter = "[月份] = '" & dr("月份") & "' and [年度] = '" & dr("年度") & "'"
                    Tables("对账单主界面_Table1").Filter = Filter
                    Tables("对账单主界面_Table1").SetColVisibleWidth("订单编号|110|箱型|60|箱号|60|承运方|60|铁路运费|60|报关行|60|报关费|60|车队|60|拖车费|60|装箱货场|60|装箱费|60|加固队|60|加固费|60|代码公司|60|境外运费USD|60|单据费|60|单证公司|60|单证费|60|口岸代理|60|查验费|60|滞留费|60|放射放行费|60|退运运费|60|落地交付费|60|人民币杂费|60|美元杂费|60|卖箱公司|60|买箱款|60|备注|60")
                    
                Case 2
                    Filter = "[订单编号] = '" & dr("订单编号") & "' and [年度] = '" & dr("年度") & "' And [月份] = '" & dr("月份") & "' "
                    Tables("对账单主界面_Table1").Filter = Filter
                    Tables("对账单主界面_Table1").SetColVisibleWidth("箱型|60|箱号|60|承运方|60|铁路运费|60|报关行|60|报关费|60|车队|60|拖车费|60|装箱货场|60|装箱费|60|加固队|60|加固费|60|代码公司|60|境外运费USD|60|单据费|60|单证公司|60|单证费|60|口岸代理|60|查验费|60|滞留费|60|放射放行费|60|退运运费|60|落地交付费|60|人民币杂费|60|美元杂费|60|卖箱公司|60|买箱款|60|备注|60")
  
            End Select
        Else
            Filter = ""
            Tables("对账单主界面_Table1").Filter = Filter
            Tables("对账单主界面_Table1").SetColVisibleWidth("年度|60|月份|40|订单编号|110|箱型|60|箱号|60|承运方|60|铁路运费|60|报关行|60|报关费|60|车队|60|拖车费|60|装箱货场|60|装箱费|60|加固队|60|加固费|60|代码公司|60|境外运费USD|60|单据费|60|单证公司|60|单证费|60|口岸代理|60|查验费|60|滞留费|60|放射放行费|60|退运运费|60|落地交付费|60|人民币杂费|60|美元杂费|60|卖箱公司|60|买箱款|60|备注|60")
        End If
    End If
    If txt.Value="承运方" Then
        If e.Node.Text <> "显示所有列" Then
            Select Case e.Node.Level
                Case 0
                    Filter = "[年度] = '" & dr("年度") & "'"
                    Tables("对账单主界面_Table1").Filter = Filter
                    Tables("对账单主界面_Table1").SetColVisibleWidth("月份|40|订单编号|110|箱号|98|箱型|98|承运方|98|铁路运费|98")
                Case 1
                    Filter = "[月份] = '" & dr("月份") & "' and [年度] = '" & dr("年度") & "'"
                    Tables("对账单主界面_Table1").Filter = Filter
                    Tables("对账单主界面_Table1").SetColVisibleWidth("订单编号|110|箱号|98|箱型|98|承运方|98|铁路运费|98")
                Case 2
                    Filter = "[承运方] = '" & dr("承运方") & "' and [年度] = '" & dr("年度") & "' And [月份] = '" & dr("月份") & "' "
                    Tables("对账单主界面_Table1").Filter = Filter
                    Tables("对账单主界面_Table1").SetColVisibleWidth("订单编号|110|箱号|98|箱型|98|铁路运费|98")
                Case 3
                    Filter = "[承运方] = '" & dr("承运方") & "' and [年度] = '" & dr("年度") & "' And [月份] = '" & dr("月份") & "' and [订单编号] = '" & dr("订单编号") & "' "
                    Tables("对账单主界面_Table1").Filter = Filter
                    Tables("对账单主界面_Table1").SetColVisibleWidth("箱号|98|箱型|98|铁路运费|98")
            End Select
        Else
            Filter = ""
            Tables("对账单主界面_Table1").Filter = Filter
            Tables("对账单主界面_Table1").SetColVisibleWidth("年度|40|月份|40|订单编号|110|箱号|98|箱型|98|承运方|98|铁路运费|98")
        End If
    End If

[此贴子已经被作者于2021/1/15 18:23:08编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110750 积分：563676 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/1/16 9:08:00 [只看该作者]

调试技巧：http://www.foxtable.com/webhelp/topics/1485.htm

If  Tables("对账单主界面_Table1").Rows.Count>0 Then
    Dim dr As DataRow = e.Node.DataRow '获取生成此节点的行
msgbox(txt.Value)
    If txt.Value="所有数据" Then
msgbox(e.Node.Text)
        If e.Node.Text <> "显示所有列" Then
            Sel ect Case e.Node.Level
                Case 0
                    Filter = "[年度] = '" & dr("年度") & "'"
                    Tables("对账单主界面_Table1").Filter = Filter
                    Tables("对账单主界面_Table1").SetColVisibleWidth("月份|40|订单编号|110|箱型|60|箱号|60|承运方|60|铁路运费|60|报关行|60|报关费|60|车队|60|拖车费|60|装箱货场|60|装箱费|60|加固队|60|加固费|60|代码公司|60|境外运费USD|60|单据费|60|单证公司|60|单证费|60|口岸代理|60|查验费|60|滞留费|60|放射放行费|60|退运运费|60|落地交付费|60|人民币杂费|60|美元杂费|60|卖箱公司|60|买箱款|60|备注|60")
                    
                Case 1
                    Filter = "[月份] = '" & dr("月份") & "' and [年度] = '" & dr("年度") & "'"
                    Tables("对账单主界面_Table1").Filter = Filter
                    Tables("对账单主界面_Table1").SetColVisibleWidth("订单编号|110|箱型|60|箱号|60|承运方|60|铁路运费|60|报关行|60|报关费|60|车队|60|拖车费|60|装箱货场|60|装箱费|60|加固队|60|加固费|60|代码公司|60|境外运费USD|60|单据费|60|单证公司|60|单证费|60|口岸代理|60|查验费|60|滞留费|60|放射放行费|60|退运运费|60|落地交付费|60|人民币杂费|60|美元杂费|60|卖箱公司|60|买箱款|60|备注|60")
                    
                Case 2
                    Filter = "[订单编号] = '" & dr("订单编号") & "' and [年度] = '" & dr("年度") & "' And [月份] = '" & dr("月份") & "' "
                    Tables("对账单主界面_Table1").Filter = Filter
                    Tables("对账单主界面_Table1").SetColVisibleWidth("箱型|60|箱号|60|承运方|60|铁路运费|60|报关行|60|报关费|60|车队|60|拖车费|60|装箱货场|60|装箱费|60|加固队|60|加固费|60|代码公司|60|境外运费USD|60|单据费|60|单证公司|60|单证费|60|口岸代理|60|查验费|60|滞留费|60|放射放行费|60|退运运费|60|落地交付费|60|人民币杂费|60|美元杂费|60|卖箱公司|60|买箱款|60|备注|60")
  
            End Select
        Else
            Filter = ""
            Tables("对账单主界面_Table1").Filter = Filter
msgbox(Tables("对账单主界面_Table1").Filter)
            Tables("对账单主界面_Table1").SetColVisibleWidth("年度|60|月份|40|订单编号|110|箱型|60|箱号|60|承运方|60|铁路运费|60|报关行|60|报关费|60|车队|60|拖车费|60|装箱货场|60|装箱费|60|加固队|60|加固费|60|代码公司|60|境外运费USD|60|单据费|60|单证公司|60|单证费|60|口岸代理|60|查验费|60|滞留费|60|放射放行费|60|退运运费|60|落地交付费|60|人民币杂费|60|美元杂费|60|卖箱公司|60|买箱款|60|备注|60")
msgbox(Tables("对账单主界面_Table1").GetColVisibleWidth)
        End If
    End If
    If txt.Value="承运方" Then
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 4 次数据查询