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

 楼主你的数据表打不开。

可以用3楼的代码，或者考虑用数据填充器。

Dim f As New Filler
f.SourceTable = DataTables("订单") '指定数据来源
f.SourceCols = "产品,客户" '指定数据来源列
f.Filter = Tables("订单").Filter
f.DataTable = DataTables("统计") '指定数据接收表
f.DataCols = "产品,客户" '指定数据接收列
f.Fill() '填充数据

http://www.foxtable.com/help/topics/0680.htm

 代码这样改。

Dim nma() As String = {"A1","A2","A3"}  '学生基本信息表数据来源列
Dim nmb() As String = {"B1","B2","B3"}  '奖助表数据接收列
For Each r As Row In Tables("学生基本信息").rows
    Dim dr As DataRow = DataTables("奖助表").AddNew
    For i As Integer = 0 To nma.Length - 1
        dr(nmb(i)) =  r(nma(i))
    Next
Nex

 或者这样改。

Dim f As New Filler
f.SourceTable = DataTables("学生基本信息") '指定数据来源
f.SourceCols = "A1,A2,A3" '指定数据来源列
f.Filter = Tables("学生基本信息").Filter
f.DataTable = DataTables("奖助表") '指定数据接收表
f.DataCols = "B1,B2,B3" '指定数据接收列
f.Fill() '填充数据

 看看是否这样？

Dim d As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")
Dim l As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim m As WinForm.TextBox = e.Form.Controls("TextBox2")

Dim nma() As String = {"院系","年级","班级","专业","姓名","贫困生","辅导员"}  '学生基本信息表数据来源列
Dim nmb() As String = {"院系","年级","班级","专业","姓名","贫困生","辅导员"}  '奖助表数据接收列
For Each r As Row In Tables("学生基本信息").rows
    Dim dr As DataRow = DataTables("奖助表").AddNew
    For i As Integer = 0 To nma.Length - 1
        dr(nmb(i)) =  r(nma(i))
    Next
    dr("奖助年月") = d.Value
    dr("奖助等级") = l.Text
    dr("奖助金额") = m.Text
Next