Foxtable(狐表) → 用户栏目 → 专家坐堂 → 这样的功能代码怎么写呢？请大师指点~~~


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

主题：这样的功能代码怎么写呢？请大师指点~~~
帅哥哟，离线，有人找我吗？
youngk
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：221 积分：1745 威望：0 精华：0 注册：2014/1/7 12:37:00 		这样的功能代码怎么写呢？请大师指点~~~  发帖心情 Post By：2014/4/14 10:05:00 [只看该作者]

我设计了一个独立窗口，里面有起始时间、结束时间、客户名称、货物种类等可以选择的值，同时还有几个值是要根据这些条件对表进行统计的。我应该如何着手写代码呢？

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


加好友 发短信
等级：童狐 帖子：221 积分：1745 威望：0 精华：0 注册：2014/1/7 12:37:00 		  发帖心情 Post By：2014/4/14 10:05:00 [只看该作者]


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


加好友 发短信
等级：童狐 帖子：221 积分：1745 威望：0 精华：0 注册：2014/1/7 12:37:00 		  发帖心情 Post By：2014/4/14 10:07:00 [只看该作者]

统计条件并不是每次都全部有的哦，说明下
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2014/4/14 10:07:00 [只看该作者]

http://www.foxtable.com/help/topics/1284.htm

条件拼接和查询条件也是类似的http://www.foxtable.com/help/topics/1058.htm

新手建议先按部就班看帮助,就不会有这种疑问了.

实在不会可以上例子.
 回到顶部
帅哥哟，离线，有人找我吗？
lsy
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00 		  发帖心情 Post By：2014/4/14 10:07:00 [只看该作者]

例子上来，说明白想如何查询，如何统计。
 回到顶部
帅哥哟，离线，有人找我吗？
babaala
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：69 积分：560 威望：0 精华：0 注册：2014/3/16 20:05:00 		  发帖心情 Post By：2014/4/14 10:24:00 [只看该作者]

我希望你们完善一下图表功能，不能按照每根bar来单独着色，还有画线功能也是一样，比方说正负是红色，负数是绿色等等。

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


加好友 发短信
等级：童狐 帖子：221 积分：1745 威望：0 精华：0 注册：2014/1/7 12:37:00 		  发帖心情 Post By：2014/4/14 14:27:00 [只看该作者]

Dim dt As DataTable = DataTables("进出库信息记录")
Dim tbl As Table = Tables("进出库信息记录")
Dim form4 As winform.form = forms("常用信息统计")
Dim d1 As Date = Form4.controls("DateTimePicker1").value
Dim d2 As Date = Form4.controls("DateTimePicker2").value
Dim lbl2 As winform.control = Form4.controls("label2")
Dim lbl4 As winform.control = Form4.controls("label4")
Dim lbl6 As winform.control = Form4.controls("label6")
Dim lbl8 As winform.control = Form4.controls("label8")
Dim lbl10 As winform.control = Form4.controls("label10")
Dim lbl12 As winform.control = Form4.controls("label12")
Dim Tatol As Decimal
Dim tatol1 As Decimal
Dim tatol2 As Decimal
Dim Tatol3 As Decimal
Dim tatol4 As Decimal
Dim tatol5 As Decimal
Dim Tatol6 As Decimal
Dim Tatol7 As Decimal
If e.Form.controls("DateTimePicker2").value Is Nothing Then
    e.Form.controls("Label2").text = 0
    e.Form.controls("Label4").text = 0
    e.Form.controls("Label6").text = 0
    e.Form.controls("Label8").text = 0
    e.Form.controls("Label10").text = 0
    e.Form.controls("Label12").text = 0
End If
If e.Form.controls("DateTimePicker2").value IsNot Nothing  And e.Form.controls("DateTimePicker1").value Is  Nothing  Then
    Tatol = Tables("进出库信息记录").compute("sum(吨位)","([进出库分类]= '进库' or [进出库分类]= '对过') and [日期] = '"& e.Form.controls("DateTimePicker2").Value & "'")
    e.Form.controls("Label2").text = Round2(Tatol,2)
    tatol1=dt.compute("sum(吨位)","([进出库分类]='进库' Or [进出库分类]='转存') And [日期] <= '"& e.Form.controls("DateTimePicker2").Value & "'")
    tatol2=dt.compute("sum(吨位)","[进出库分类]='出库'And [日期] <= '"& e.Form.controls("DateTimePicker2").Value & "'")
    tatol3 = tatol1-tatol2        
    e.Form.controls("Label4").text = Round2(Tatol3,2)
     Tatol4 = Tables("进出库信息记录").compute("sum(车船数)","[到发方式]='火车' and [日期] = '"& e.Form.controls("DateTimePicker2").Value & "'")
    e.Form.controls("Label6").text = Round2(Tatol4,2)
     Tatol5 = Tables("进出库信息记录").compute("sum(过磅吨位)","[日期] = '"& e.Form.controls("DateTimePicker2").Value & "'")
    e.Form.controls("Label8").text = Round2(Tatol5,2)
     Tatol6 = Tables("进出库信息记录").compute("sum(车船数)","[到发方式]='船舶' and [日期] = '"& e.Form.controls("DateTimePicker2").Value & "'")
     e.Form.controls("Label10").text = Round2(Tatol6,2)
    Tatol7 = Tables("进出库信息记录").compute("sum(二码头对过)","[日期] = '"& e.Form.controls("DateTimePicker2").Value & "'")
    e.Form.controls("Label12").text =  Round2(Tatol7,2)
End If
If e.Form.controls("DateTimePicker2").value IsNot Nothing  And e.Form.controls("DateTimePicker1").value IsNot  Nothing  Then
    If e.Form.controls("ComboBox1").value Is Nothing  And e.Form.controls("ComboBox2").value Is  Nothing And e.Form.controls("ComboBox3").value Is  Nothing  Then
    Tatol = Tables("进出库信息记录").compute("sum(吨位)","([进出库分类]= '进库' or [进出库分类]= '对过') and [日期] >= '"& e.Form.controls("DateTimePicker1").Value & "'and [日期] <= '"& e.Form.controls("DateTimePicker2").Value & "'")
    e.Form.controls("Label2").text = Round2(Tatol,2)
    tatol1=dt.compute("sum(吨位)","([进出库分类]='进库' Or [进出库分类]='转存') And [日期] <= '"& e.Form.controls("DateTimePicker2").Value & "'")
    tatol2=dt.compute("sum(吨位)","[进出库分类]='出库'And [日期] <= '"& e.Form.controls("DateTimePicker2").Value & "'")
    tatol3 = tatol1-tatol2        
    e.Form.controls("Label4").text = Round2(Tatol3,2)
     Tatol4 = Tables("进出库信息记录").compute("sum(车船数)","[到发方式]='火车' and [日期] >= '"& e.Form.controls("DateTimePicker1").Value & "'and [日期] <= '"& e.Form.controls("DateTimePicker2").Value & "'")
    e.Form.controls("Label6").text = Round2(Tatol4,2)
     Tatol5 = Tables("进出库信息记录").compute("sum(过磅吨位)","[日期] >= '"& e.Form.controls("DateTimePicker1").Value & "'and [日期] <= '"& e.Form.controls("DateTimePicker2").Value & "'")
    e.Form.controls("Label8").text = Round2(Tatol5,2)
     Tatol6 = Tables("进出库信息记录").compute("sum(车船数)","[到发方式]='船舶' and [日期] >= '"& e.Form.controls("DateTimePicker1").Value & "'and [日期] <= '"& e.Form.controls("DateTimePicker2").Value & "'")
     e.Form.controls("Label10").text = Round2(Tatol6,2)
    Tatol6 = Tables("进出库信息记录").compute("sum(二码头对过)","[日期] >= '"& e.Form.controls("DateTimePicker1").Value & "'and [日期] <= '"& e.Form.controls("DateTimePicker2").Value & "'")
    e.Form.controls("Label12").text = Round2(Tatol7,2)
    End If
    If e.Form.controls("ComboBox1").value IsNot Nothing  And e.Form.controls("ComboBox2").value Is  Nothing And e.Form.controls("ComboBox3").value Is  Nothing  Then
    Tatol = Tables("进出库信息记录").compute("sum(吨位)","([进出库分类]= '进库' or [进出库分类]= '对过') and ([日期] <= '"& e.Form.controls("DateTimePicker2").Value & "'and [日期] >= '"& e.Form.controls("DateTimePicker2").Value & "')")
    e.Form.controls("Label2").text = Round2(Tatol,2)
    tatol1=dt.compute("sum(吨位)","([进出库分类]='进库' Or [进出库分类]='转存') And [日期] <= '"& e.Form.controls("DateTimePicker2").Value & "'")
    tatol2=dt.compute("sum(吨位)","[进出库分类]='出库'And [日期] <= '"& e.Form.controls("DateTimePicker2").Value & "'")
    tatol3 = tatol1-tatol2        
    e.Form.controls("Label4").text = Round2(Tatol3,2)
     Tatol4 = Tables("进出库信息记录").compute("sum(车船数)","[到发方式]='火车' and ([日期] <= '"& e.Form.controls("DateTimePicker2").Value & "'and [日期] >= '"& e.Form.controls("DateTimePicker2").Value & "')")
    e.Form.controls("Label6").text = Round2(Tatol4,2)
     Tatol5 = Tables("进出库信息记录").compute("sum(过磅吨位)","[日期] <= '"& e.Form.controls("DateTimePicker2").Value & "'and [日期] >= '"& e.Form.controls("DateTimePicker2").Value & "'")
    e.Form.controls("Label8").text = Round2(Tatol5,2)
     Tatol6 = Tables("进出库信息记录").compute("sum(车船数)","[到发方式]='船舶' and ([日期] <= '"& e.Form.controls("DateTimePicker2").Value & "'and [日期] >= '"& e.Form.controls("DateTimePicker2").Value & "')")     
     e.Form.controls("Label10").text = Round2(Tatol6,2)
    Tatol6 = Tables("进出库信息记录").compute("sum(二码头对过)","[日期] = '"& e.Form.controls("DateTimePicker2").Value & "'")
    e.Form.controls("Label12").text = Round2(Tatol7,2)
    End If
 回到顶部
帅哥哟，离线，有人找我吗？
youngk
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：221 积分：1745 威望：0 精华：0 注册：2014/1/7 12:37:00 		  发帖心情 Post By：2014/4/14 14:27:00 [只看该作者]

请大师看一下，这个代码可以简化不？

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


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2014/4/14 14:30:00 [只看该作者]

建议 IF判断中把统计的值赋值给变量


最后最后再把变量赋值给控件, 不用每个IF条件中都赋值一次
 回到顶部
帅哥哟，离线，有人找我吗？
youngk
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：221 积分：1745 威望：0 精华：0 注册：2014/1/7 12:37:00 		  发帖心情 Post By：2014/4/14 14:52:00 [只看该作者]

我也是这样的想法 但是怎么做到呢？是不是用这样的代码啊：

With e.Form.Controls("cmbProduct")
    If .Value IsNot Nothing Then
        Filter = "产品 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("cmbCustomer")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "客户 = '" & .Value & "'"
    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.05664 秒, 4 次数据查询