Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于闪屏问题


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

主题：关于闪屏问题
帅哥哟，离线，有人找我吗？
有点蓝
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107783 积分：548260 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/4/17 11:10:00 [显示全部帖子]

不需要在打开和关闭下拉窗口，也不需要取下拉窗口里面的控件

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107783 积分：548260 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/4/17 11:38:00 [显示全部帖子]

                    If .Value IsNot Nothing Then
                        Filter = Filter & "记账日期>= #" & dt1 & "# And 记账日期 <= #" & dt2 & "# "
                        If Filter > "" Then
                            Filter = Filter & " And "
                        End If
dim drr as datarow = DataTables("支出分类").find("支出目录='" & .Value & "'")
if drr isnot nothing then
                            Dim str As String = DataTables("支出分类").GetComboListString("支出目录","支出分类代码='" & drr("支出分类代码") & "' Or 支出分类代码 Like '" & drr("支出分类代码") & "%'")
                            Filter = Filter & "交易分类 In ('" & str.Replace("|","','") & "')
end if
                    End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107783 积分：548260 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/4/17 11:59:00 [显示全部帖子]

msgbox(filter)

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107783 积分：548260 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/4/17 13:39:00 [显示全部帖子]

                With e.Form.Controls("srflDropBox")
                    If .Value Is Nothing  Then
                        Tables("收入明细窗体_srTable").GrandTotal = False
                        t = Tables("收入明细窗体_srTable")
                        removeHandler t.grid.Paint, AddressOf Grid_Paint
                        Tables("收入明细窗体_srTable").DataSource  = DataTables("收支交易流水")
                        Tables("收入明细窗体_srTable").Filter = "记账日期>= #" & dt1 & "# And 记账日期 <= #" & dt2 & "# And 交易类型 = '收入'"
                        Tables("收入明细窗体_srTable").SetColVisibleWidth("单号|110|记账日期|90|收支分类原始值|200|收入金额|90|所属账户原始值|150|经手人原始值|90|备注|200")
                        t = Tables("收入明细窗体_srTable")
                        t.Cols("收入金额").GrandTotal = True '指定要合计的列
                        t.GrandTotal = True '显示合计模式
                        t.Grid.Name = t.Name
                        AddHandler t.grid.Paint, AddressOf Grid_Paint
                    End If
                        Dim drr As DataRow = DataTables("收入分类").find("收入目录='" & .Value & "'")
                       If drr IsNot Nothing Then
                            Dim str As String = DataTables("收入分类").GetComboListString("收入目录","收入分类代码='" & drr("收入分类代码") & "' Or 收入分类代码 Like '" & drr("收入分类代码") & "%'")
                            Filter = Filter & "收支分类 In ('" & str.Replace("|","','") & "')"
                       End If
                      If .Value IsNot Nothing Then 收入分类不为空才会执行
                        Filter = Filter & "记账日期>= #" & dt1 & "# And 记账日期 <= #" & dt2 & "#"
                        If Filter > "" Then
                            Filter = Filter & " And "
                        End If
                    End If
                End With
 回到顶部
总数 15 上一页 1 2
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03320 秒, 5 次数据查询