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

比如下图，我想达到的效果就是，我通过计算按钮，计算出按产品合计，然后我在右侧的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

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

 

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

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

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

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

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

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

 

这段代码，怎么样能和NumericComboBox1，控件输入的值挂钩呢？？

强大吖，我对老师膜拜~~老师，很强大~~~

老师，你说为什么，但订单状态下（在进行合计前）如果点击NumericComboBox1，会出现如下图的提示呢？？
此主题相关图片如下：360截图20140429222826875.jpg


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

奇怪了，选数值就没问题，直接点击就出现问题。。。
此主题相关图片如下：360截图20140429223420859.jpg