以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助统计公式  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=8732)

--  作者:ASD123456789
--  发布时间:2010/12/2 11:27:00
--  求助统计公式

请问版主如下要求代码如何设计:

要求在“表A”中改变数据,但在“表B”中的查看统计数据,按日期的要求查找,但基本框架不能动,就是数据上进行统计

 

  

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目26.table

如下这个框是设计好,


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

--  作者:狐狸爸爸
--  发布时间:2010/12/2 11:37:00
--  

何必呢?自己做个按钮,用交叉统计,代码为:

 

Dim g As New CrossTableBuilder("统计表1", DataTables("表A"))
g.HGroups.AddDef("产品")
g.VGroups.AddDef("日期", "日期_{0}月")
g.Totals.AddDef("金额", "单价")
g.HorizontalTotal = True
g.VerticalTotal = True
g.Build()
MainTable = Tables("统计表1")

 

需要新的统计结果的时候,单击这个按钮即可生成一个新的表。

甚至不用写按钮,直接在交叉统计将设置保存下来,随时可以通过菜单调用.

 

如果要保持原表,你得付出代价,参考:

http://help.foxtable.com/topics/0681.htm

 

[此贴子已经被作者于2010-12-2 11:48:20编辑过]

--  作者:ASD123456789
--  发布时间:2010/12/2 12:26:00
--  

谢谢,那如果要做条件在另一表上查找,怎么做,要求:与日期,产品,颜色,单位为条件查找怎么设置代码


--  作者:ASD123456789
--  发布时间:2010/12/2 14:22:00
--  

那如果要做查找的功能,最主要可能要打合同啊,对帐啊,查出一些项目来打印,条件在另一表上查找,怎么做,要求:与日期,产品,颜色,单位为条件查找怎么设置代码,谢谢

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目26.table


--  作者:blackzhu
--  发布时间:2010/12/2 14:25:00
--  

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目108.table

 

 

  你要是不是这个效果,看统计金额表.


--  作者:狐狸爸爸
--  发布时间:2010/12/2 14:45:00
--  

Dim pd  As String = e.Form.Controls("TextBox1").Value
Dim cr As String = e.Form.Controls("TextBox2").Value
Dim rq As Date = e.Form.Controls("DateTimePicker1").Value
Dim Filter As String = "产品 = \'" & Pd  & "\' And 颜色 = \'" & cr & "\' And 日期 = #" & rq & "#"
Dim dr As DataRow = DataTables("表A").Find(Filter)
If dr IsNot Nothing  Then
   Dim dr2 = Tables("查找表").AddNew()
   For Each dc As DataCol In DataTables("查找表").DataCols
       dr2(dc.name) = dr(dc.name)
   Next
End If

 

只是不明白为啥要这样打印,直接在表A打印不就行了吗?

 

 


--  作者:ASD123456789
--  发布时间:2010/12/2 15:07:00
--  

谢谢


--  作者:ASD123456789
--  发布时间:2010/12/2 15:15:00
--  
狐爸你那个代码放去按钮“查找”中无法查找了
--  作者:ASD123456789
--  发布时间:2010/12/2 15:20:00
--  

查找设置代码:有可能只填产品或颜色都可以查找,加条件有可能为了能更明细进行查找,请问狐爸,你这些代码无法达到要求啊,请问要怎么做,谢谢


--  作者:狐狸爸爸
--  发布时间:2010/12/2 15:31:00
--  

你可以自己改的:

 

Dim pd  As String = e.Form.Controls("TextBox1").Value
Dim cr As String = e.Form.Controls("TextBox2").Value
Dim rq As Date = e.Form.Controls("DateTimePicker1").Value
Dim Filter As String 

if pd > "" then

   Filter =  "产品 = \'" & Pd  & "\'"

End If

If cr > "" Then

    if Filter > "" Then

       Filter = Filter & " And "

    End If

    Filter = "颜色 = \'" & cr & "\'“

End If

If rq > "1/1/1921" Then

    if Filter > "" Then

       Filter = Filter & " And "

    End If

  Filter = "日期 = #" & rq & "#“

End If

Dim dr As DataRow = DataTables("表A").Find(Filter)
If dr IsNot Nothing  Then
   Dim dr2 = Tables("查找表").AddNew()
   For Each dc As DataCol In DataTables("查找表").DataCols
       dr2(dc.name) = dr(dc.name)
   Next
End If

 

帮助提供了一个类似例子,你可以看看:

http://help.foxtable.com/topics/1058.htm
虽然帮助用的是筛选,不是查找,但是道理一样。

[此贴子已经被作者于2010-12-2 15:32:00编辑过]