Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于利用目录树筛选数据问题


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

主题：关于利用目录树筛选数据问题
帅哥哟，离线，有人找我吗？
裴保民
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2020/2/22 10:16:00 [显示全部帖子]

他不可能在一个窗体的，不然的话都不用按钮来代替目录树事件代码了，该怎么处理呢？NodeMouseDoubleClick双击事件能隐藏该窗体吗？

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


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2020/2/22 10:58:00 [显示全部帖子]

 Filter ="记账日期>= #" & dt1 & "# And 记账日期 <= #" & dt2 & "# ‘"

图片点击可在新窗口打开查看此主题相关图片如下：截图04.jpg
图片点击可在新窗口打开查看

这个筛选语句哪错了运行错误


[此贴子已经被作者于2020/2/22 10:59:18编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2020/2/22 12:06:00 [显示全部帖子]

  Case  dalei =e.Form.Controls("bennianRadioButton").Checked
                    Dim y As Integer = Date.Today.Year
                    Dim dt1 As New Date(y, 1, 1)
                    Dim dt2 As New Date(y, 12, 31)
                    Filter = Filter & "记账日期>= #" & dt1 & "# And 记账日期 <= #" & dt2 & "#"                  
                    With e.Form.Controls("srflDropBox")
                        If .Value IsNot Nothing Then
                            Dim trv As WinForm.TreeView =Forms("以收入类型查找选择").Controls("srflTreeView")
                            If trv.SelectedNode IsNot Nothing Then
                                Dim dr As DataRow = trv.SelectedNode.DataRow()
                                Dim str As String = DataTables("收入分类").GetComboListString("收入目录","收入分类代码='" & dr("收入分类代码") & "' Or 收入分类代码 Like '" & dr("收入分类代码") & "%'")
                                Filter = Filter & "收支分类 In ('" & str.Replace("|","','") & "')"
                            End If
                        End If
                    End With                         
End Select

图片点击可在新窗口打开查看此主题相关图片如下：截图05.jpg
图片点击可在新窗口打开查看
看看那有问题，为什么只要“收入分类”有数据就弹出缺少参数呀？如果是空值就不弹出
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2020/2/24 12:35:00 [显示全部帖子]

加载查询窗体的时候怎么将目录树的根目录作为默认选项呢？相当于打开目录树双击现在了根目录

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:日常记账 - 副本.foxdb


[此贴子已经被作者于2020/2/24 12:38:18编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2020/2/24 15:33:00 [显示全部帖子]

是指所有分类
为什么启动查询窗体后DropDownBox控件是空值呢？

图片点击可在新窗口打开查看此主题相关图片如下：截图06.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2020/2/24 16:00:00 [显示全部帖子]

是不是把这代码写到查询窗体的AfterLoad事件中呢？
资源来的代码处修改后运行后效果一样

我想实现当加载查询窗体时字段选择根节点复制给DropDownBox并进行查询数据，相当于启动查询窗体后选择DropDownBox打开下拉窗体双击根目录后的效果
[此贴子已经被作者于2020/2/24 16:08:31编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2020/2/24 16:35:00 [显示全部帖子]

经过测试还是 赋不了值
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:日常记账 - 副本.foxdb

图片点击可在新窗口打开查看此主题相关图片如下：截图07.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2020/2/24 16:51:00 [显示全部帖子]

没有
我想实现打开查询窗体后默认打开这，但不在窗体上显示，相当于打开窗体后执行一次选择的行为
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2020/2/24 17:09:00 [显示全部帖子]

关键是DropDownBox控件中的数据时其中一个筛选条件，如果他不打开，就进行选择其他条件后进行筛选时会出一下错误

图片点击可在新窗口打开查看此主题相关图片如下：截图02.jpg
图片点击可在新窗口打开查看


除非启动查询窗体后先打开DropDownBox控件一下做一次选择，再进行其他条件筛选才正常，怎么处理这样的问题

[此贴子已经被作者于2020/2/24 17:10:12编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2020/2/24 17:34:00 [显示全部帖子]

那样也会弹出错误提示框呢，不能用代码执行一次打开目录树做一次选择后再关闭吗？
[此贴子已经被作者于2020/2/24 18:11:01编辑过]
 回到顶部
总数 32 上一页 1 2 3 4 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 7 次数据查询