主题：求助统计公式

何必呢？自己做个按钮，用交叉统计，代码为：

 

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

 

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打印不就行了吗？

 

 

你可以自己改的：

 

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
虽然帮助用的是筛选，不是查找，但是道理一样。

1、不同的问题要单独发帖提问，不要总是同一个帖子的后面跟帖。

2、请参考：

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