Foxtable(狐表)用户栏目专家坐堂 → 代码如何合并?


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

主题:代码如何合并?

帅哥哟,离线,有人找我吗?
lgz518
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1152 积分:7712 威望:0 精华:0 注册:2019/6/13 9:57:00
  发帖心情 Post By:2022/5/21 16:32:00 [只看该作者]

老师,
1,分组统计,如8楼图示,
 
1、统计什么?统计查询出来的数据进行统计;按什么做分组进行统计,按查询图示查询条件为分组进行统计;统计的结果应该是怎么样的,按查询条件查询出来的数据进行统计?

详细说明:
按“开始日期,结束日期,按分类,条件,内容”或“开始日期,结束日期”或“按分类,条件,内容”的方法,查询出来的数据进行统计,或说按查询出来数据做分组统计。

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


加好友 发短信
等级:超级版主 帖子:106209 积分:540168 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/5/21 16:35:00 [只看该作者]

没看懂。查询出来的数据要进行怎么样的统计?

 回到顶部
帅哥哟,离线,有人找我吗?
lgz518
  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1152 积分:7712 威望:0 精华:0 注册:2019/6/13 9:57:00
  发帖心情 Post By:2022/5/21 16:37:00 [只看该作者]

9楼图示的问题:2、没有选择分类,代码里没有判断是否选择了分类,那要如何解决,我看2楼代码有判断,不知道如何在加判断,请老师修正,谢谢!

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


加好友 发短信
等级:超级版主 帖子:106209 积分:540168 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/5/21 17:08:00 [只看该作者]

2楼只是判断了日期,没有判断分类。参考日期的判断方法即可

 回到顶部
帅哥哟,离线,有人找我吗?
lgz518
  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1152 积分:7712 威望:0 精华:0 注册:2019/6/13 9:57:00
  发帖心情 Post By:2022/5/22 22:56:00 [只看该作者]


老师,按2楼做法,全部条件执行,如果单独一部分就报错,比如按起止日期,
.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2022.5.13.2
错误所在事件:窗口,模糊查询,Button6,Click
详细错误信息:
未将对象引用设置到对象的实例。

改用下面代码,按起止日期,能正确查询,但按分类查询,报错,如何改正,请老师,帮助,谢谢

Dim Filter As String
With e.Form.Controls("StartDate")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "日期 >= #" & .Value & "#"
    End If
End With

With e.Form.Controls("EndDate")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "日期 <= #" & .Value & "#"
    End If
End With

'If Filter > "" Then
'    Filter = Filter & " And "
'End If






Dim c As String = e.Form.Controls("ComboBox1").Text
Dim d As String = " " & e.Form.Controls("ComboBox2").Text & " "
Dim 符号 As String


 
With e.Form.Controls("ComboBox1")
  If .Value IsNot Nothing Then
     If Filter > "" Then

         
         
If d = " like " Then
    If tbl.Cols(c).IsString = False Then
        Filter = Filter & "convert(" & c & ",'System.String')" & d & "'%" & e.Form.Controls("TextBox1").Text & "%'"
    Else
        Filter = Filter & c & d & "'%" & e.Form.Controls("TextBox1").Text & "%'"
    End If
Else
    If tbl.Cols(c).IsString Then
        符号 = "'"
    ElseIf tbl.Cols(c).IsDate Then
        符号 = "#"
        
    End If
    
    Filter = Filter & c & d & 符号 & e.Form.Controls("TextBox1").Text & 符号
    
End If

 Filter = Filter & "c = '" & .Value & "'"
  Filter = Filter & "d = '" & .Value & "'"
  Filter = Filter & "TextBox1 = '" & .Value & "'"
    End If

End If
End With


'If Filter > "" Then
 If Filter = "" Then 
     Filter = Filter & "  "
'    Filter = Filter & " And "
End If

Tables("模糊查询_订单").Filter = Filter

.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2022.5.13.2
错误所在事件:
详细错误信息:
语法错误:“产品”运算符后缺少操作数

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106209 积分:540168 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/5/22 23:18:00 [只看该作者]

请上传实例,然后具体说明要做什么功能

 回到顶部
帅哥哟,离线,有人找我吗?
lgz518
  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1152 积分:7712 威望:0 精华:0 注册:2019/6/13 9:57:00
  发帖心情 Post By:2022/5/23 8:40:00 [只看该作者]

老师,上实例,需求在窗口写,请帮处理,谢谢

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:查询 问题.zip



 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106209 积分:540168 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/5/23 9:37:00 [只看该作者]

统计没看懂,按什么分组进行统计?统计什么值?最终需要什么结果?

 回到顶部
帅哥哟,离线,有人找我吗?
lgz518
  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1152 积分:7712 威望:0 精华:0 注册:2019/6/13 9:57:00
  发帖心情 Post By:2022/5/23 10:08:00 [只看该作者]

老师,统计分组是”按窗口上“日期时间框,下拉框(按分类和条件)和文本框(内容)“的值“,以此进行统计,

如果”日期时间框“有值,按日期时间框的起止日期进行分组统计
如果”下拉框(按分类和条件)和文本框(内容)有值,按下拉框(按分类和条件)和文本框(内容)有值进行统计
如果”日期时间框“,”下拉框(按分类和条件)和文本框(内容)都有值,就是按”日期时间框“,”下拉框(按分类和条件)和文本框(内容)的值进行统计
否则
不统计,提示“没有合适条件”统计

大致思路,这样,谢谢




 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106209 积分:540168 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/5/23 10:24:00 [只看该作者]

这些都是统计条件,和分组没有半毛钱的关系:http://www.foxtable.com/webhelp/topics/0677.htm

 回到顶部
总数 22 上一页 1 2 3 下一页