主题：表A部分数据转到表B的问题

表A部分数据转到表B的问题

有一“学生基本信息”表，此表中学生信息不可重复。有一“奖助表”，此表中学生信息可以多次重复，因为某一名学生在校期间可以多次获得奖学金。我在项目中建了一个“奖助学金评定”窗体，在“学生基本信息”表中筛选了4条数据，想通过“批量转换”按钮将筛选出的4条数据复制到“奖助表”中对应的列中。请问“批量转换”按钮的代码如何写？见附件

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

点击浏览该文件:管理项目1.rar

不好意思，疏忽了。3楼的代码出现问题，请帮忙改一下：

 

 

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

点击浏览该文件:用户.rar

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

林老师的代码通过。谢谢！

现在对 "管理项目1"进行了修改，增加了一个“录入窗体”，在“学生基本信息”表中筛选的若干条数据是在同一个年月获得同一个等级的助学金，因此想把同一个年月、同一个等级的助学金信息填入到“录入窗体”中，点击确认按钮后，就一次把相关数据都批量填入到“奖助表”的对应列中。请问以下林老师的“确认”按钮的代码应该如何修改？"管理项目2"见附件

Dim f As New Filler
f.SourceTable = DataTables("学生基本信息") '指定数据来源
f.SourceCols = "系部,年级，班级，姓名，贫困生，辅导员" '指定数据来源列
f.Filter = Tables("学生基本信息").Filter
f.DataTable = DataTables("奖助表") '指定数据接收表
f.DataCols = "系部,年级，班级，姓名，贫困生，辅导员" '指定数据接收列
f.Fill() '填充数据

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

点击浏览该文件:相关管理项目2.rar

通过。林老师太神奇了！