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

这样试试

 

Dim Year As String = e.Form.Controls("listbox1").text

Dim Month As String = e.Form.Controls("listbox2").text

dim f As New Filler

f.SourceTable = DataTables("订单") '指定数据来源

f.SourceCols = "产品,客户" '指定数据来源列

f.DataTable = DataTables("统计") '指定数据接收表

f.DataCols = "产品,客户" '指定数据接收列

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

f.Fill() '填充数据

是我搞错了，这样看看。

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

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

dim f As New Filler

f.SourceTable = DataTables("订单") '指定数据来源

f.SourceCols = "产品,客户" '指定数据来源列

f.DataTable = DataTables("统计") '指定数据接收表

f.DataCols = "产品,客户" '指定数据接收列

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

f.Fill() '填充数据

测试了一下，没发现你所说的问题，可否传你的文件看看。

是你自己的问题，你将ListBox1属性设成只读了，改过来即可。

我也说一下，我发那个代码也是经过测试的，代码应该没有任何问题。
那么问题应该出在哪呢，我大胆的猜测一下，楼主在listbox中选择年月时只是按了一下上下键头，焦点并没有选择所需的年月，因为没有选中年月，数据肯定不能填充过来。

试一下选中年月后再执行此操作，选中状态见下图。


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

其实你应该用ComboBox控件。