主题：[求助]将当前表中的选定行复制到另一表中，如何实现？

   将当前表中的选定行复制到另一表中，如何实现？在易表中用以下命令即可实现的功能，在狐表中如何用按扭来实现？谢谢了！！

CopyRows

将当前表中符合条件的行复制到其它表中。

谢谢回复！

       在下列代码中加入过滤条件，也可正确执行：

dim f As New Filler
f.SourceTable = DataTables("订单") '指定数据来源
f.SourceCols = "产品,客户" '指定数据来源列
f.DataTable = DataTables("统计") '指定数据接收表
f.DataCols = "产品,客户" '指定数据接收列
f.Filter="[年]='2008' and [月]='1'"   '  过滤条件
f.Fill() '填充数据

     如果将代码中 

  f.Filter="[年]='2008' and [月]='1'"     

   “2008” 和 “1” 换成窗口中 listbox1 和 listbox2 这二个控件中的值，让过滤结果随时可以变化，该如何引用呢？谢谢指点！！

     谢谢C版的及时回复！
 
      我试了之后，出现错误提示，未能填充数据。好象是前二行的代码有误。烦请再给看看是什么原因，谢谢！


此主题相关图片如下：tt截图未命名.bmp

       year和month 的变量定义已经通过，但是

f.Filter = "[年] = '"& Year & "' and [月] = '"& Month &"'"   '  过滤条件

    还是出现问题，一个是语法问题，另一个是否是因为我的表中[年]和[月]均是数值型表达式列，能否是因为 Year 和 Month 定义的是字符型，不匹配的原因。再次谢谢！

 
   请看错误提示：

此主题相关图片如下：tt截图未命名.bmp

   试了一下将定义行改成如下，与字段类型一致：

Dim Year As Short = e.Form.Controls("listbox1").Value

Dim Month As Byte = e.Form.Controls("listbox2").Value

     这次未出现错误提示，但是也并未将选定行复制到另一表中。

   请看附表中汇总表的“按月汇总”按扭。谢谢！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:汇总_11.zip

     谢谢回复！改回来后也不能实现按年份和月份这二个控件中所选择的时间进行有条件的汇总。

我的目的是实现按照年份和月份所选择的日期，来汇总任意一个月份的数据，点击“按月汇总”按扭后还是出错！

   请大家再看一下下面的代码有问题吗？ 为何不能按控件listbox2所指定的月份值而筛选出指定月份的数据来呢？程序运行并未出错，就是不出结果。详见11楼的附件。谢谢！

Dim Year As Short = e.Form.Controls("listbox1").Value
Dim Month As byte = e.Form.Controls("listbox2").Value
dim f As New Filler
f.SourceTable = DataTables("明细表") '指定数据来源
f.SourceCols = "日期" '指定数据来源列
f.DataTable = DataTables("汇总表") '指定数据接收表
f.DataCols = "日期" '指定数据接收列
f.ExcludeExistValue=true '排除接收表中已经存在的内容
f.Filter = "[月] = '"& month &"'"   '  过滤条件
f.Fill() '填充数据

      谢谢指点！提示框显示 [月]＝'0'  即使调整月份值为任意月份提示框都是显示 [月]＝'0'  ，证明listbox2的值没有正确取值。

Dim Year As Short = e.Form.Controls("listbox1").SelectedItem

Dim Month As byte = e.Form.Controls("listbox2").SelectedItem

上述二行好象有问题，换成Integer 也还是那样。如若换成String 则会出现错误提示。

如何解决，还请明示。谢谢了！