主题：关于填入数字自动筛选数值对应的合计值

比如下图，我想达到的效果就是，我通过计算按钮，计算出按产品合计，然后我在右侧的NumericComboBox1控件中输入一个数值比如30，那么临时表就会筛选出排名前30的产品明细出来，这样的代码如何写。。。请老师给予帮助

 

计算代码是：

Dim g As New GroupTableBuilder("统计表1", DataTables("订单"))
g.Groups.AddDef("产品编码")
g.Groups.AddDef("产品型态")
g.Groups.AddDef("产品")
g.Totals.AddDef("数量")
g.Totals.AddDef("金额")
g.VerticalTotal = True
e.Form.controls("Table1").Table.Datasource = g.BuildDataSource

此主题相关图片如下：360截图20140429215029187.jpg

Dim fdr As Datarow = e.Form.controls("Table1").Table.Datatable.Find("", "金额 Desc", 30)

If fdr IsNot Nothing Then

    e.Form.controls("Table1").Table.Filter = "金额 >= " & fdr("金额")

Else

    e.Form.controls("Table1").Table.Filter = ""

End If

老师，我不是需要固定的，值，我是需用，填入任何值，他就会筛选出来~~

 

有可能是30，也可以是15，也有可能是20

在比如，如果产品合计列只有15行，我输入的是20，他就只显示15行，且是从最大到最小排序

在比如，如果产品合计列有200行，我输入的是30，他就显示30行，且是从最大到最小排序

 你不要没有一点进步好不好？自己改一下。

 

排序这样写  e.Form.controls("Table1").Table.Sort = "金额 desc"

 

再看6楼

老师你这样一说，我不敢在追问你了~~

老师，好像这个有点难额~~

 我彻底被你征服了

 

Dim fdr As Datarow = e.Form.controls("Table1").Table.Datatable.Find("", "金额 Desc", e.Form.Controls("xxx").Text)

If fdr IsNot Nothing Then

    e.Form.controls("Table1").Table.Filter = "金额 >= " & fdr("金额")

Else

    e.Form.controls("Table1").Table.Filter = ""

End If

 

e.Form.controls("Table1").Table.Sort = "金额 desc"