以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  表达式代码问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=39390)
--  作者：yuyijun2
--  发布时间：2013/8/23 9:51:00
--  表达式代码问题
 

Dim bd1 As New GroupTableBuilder("统计表1",DataTables("行政案件"))
Dim dt1 As fxDataSource
bd1.Groups.AddDef("办案部门") \'根据办案部门分组

bd1.Totals.AddDef("行政罚款","行政罚款") \'对金额进行统计
dt1 = bd1.BuildDataSource()

Tables("统计_Table1").DataSource = dt1 \'将统计结果绑定到Table

 
With DataTables("统计_Table1").DataCols  \'用表达式列计算库存数据
    .Add("投诉案",Gettype(Integer))
  .Add("查办案件总数",Gettype(Integer))
End With


For Each dr As Row In Tables("统计_Table1").Rows
    dr("查办案件总数")= DataTables("行政案件").Compute("Count(办案部门)", "[办案部门] = \'" & dr("办案部门") & "\'"  )
   dr("投诉案") = DataTables("行政案件").Compute("Count(办案部门)", "[案件来源]=\'投诉\'" )
 Next

 

上面的红色代码如何再加入统计条件？例如在加入橙色部分的条件,让“投诉案”=部门查办的投诉类案件
--  作者：Bin
--  发布时间：2013/8/23 9:56:00
--  
dr("查办案件总数")= DataTables("行政案件").Compute("Count(办案部门)", "[办案部门] = \'" & dr("办案部门") & "\' and 投诉案=\'部门查办\'"  )
--  作者：yuyijun2
--  发布时间：2013/8/23 10:15:00
--  

可以认帮我写出正确的代码吗？

 

                      dr("投诉案") = ？
--  作者：狐狸爸爸
--  发布时间：2013/8/23 10:18:00
--  
dr("查办案件总数")= DataTables("行政案件").Compute("Count(办案部门)", "[办案部门] = \'" & dr("办案部门") & "\'" )
dr("投诉案") = DataTables("行政案件").Compute("Count(办案部门)", "[办案部门] = \'" & dr("办案部门") & "\' And [案件来源]=\'投诉\'" )
--  作者：yuyijun2
--  发布时间：2013/8/23 11:00:00
--  

如果我在当前窗口加入日期控件DateTimePicker1和日期控件DateTimePicker2两个日期变量

   dr("投诉案") = DataTables("行政案件").Compute("Count(办案部门)", "[办案部门] = \'" & dr("办案部门") & "\' And [案件来源]=\'投诉\'And[查处时间] ≥DateTimePicker1≤DateTimePicker2“）

红色部分的代码如何写？
--  作者：Bin
--  发布时间：2013/8/23 11:02:00
--  
拼接一下即可   dr("投诉案") = DataTables("行政案件").Compute("Count(办案部门)", "[办案部门] = \'" & dr("办案部门") & "\' And [案件来源]=\'投诉\' And [查处时间] >=#" & DateTimePicker1 & " and [查处时间] <=# & DateTimePicker2 & "#“）
--  作者：yuyijun2
--  发布时间：2013/8/23 11:42:00
--  

出现编译错误！
--  作者：Bin
--  发布时间：2013/8/23 11:43:00
--  
DateTimePicker1 如果你这个不是变量名称  那么应该是DateTimePicker1.Value 参与拼接才对哦.
--  作者：yuyijun2
--  发布时间：2013/8/23 12:30:00
--  

DateTimePicker1 是当前窗口的控件，应该怎么写

 

 
--  作者：Bin
--  发布时间：2013/8/23 12:33:00
--  
http://www.foxtable.com/help/topics/1962.htm

e.form.controls("DateTimePicker1").Value 

图片点击可在新窗口打开查看

 

看帮助一定要按顺序，头一两遍可以不求甚解，第三遍开始要将每个例子实际操作演练一遍，不明白的就上论坛求助。
三遍之后才开始做系统，先设计好表，想做什么功能，就做什么功能，遇到问题在帮助找答案，找不到的在论坛提问，不断遇到问题，不断解决问题，慢慢就熟悉了。
此外一定要先掌握《使用指南》，然后再看《开发指南》