主题：录入窗口，如何输入完，按“保存”按钮再保存

保存按钮代码

Dim f As New Filler
f.SourceTable = DataTables("计划单临时表") '指定数据来源
f.SourceCols = "计划单号,材料名称,规格型号,单位,数量,到货时间,备注" '指定数据来源列
f.DataTable = DataTables("计划单明细") '指定数据接收表
f.DataCols = "计划单号,材料名称,规格型号,单位,数量,到货时间,备注" '指定数据接收列
f.filter = "计划单号 is not null"
f.Fill() '填充数据

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

如代码

Dim Cols1() As String = {"来源列一","来源列二","来源列三"}
Dim Cols2() As String = {"接收列一","接收列二","接收列三"}
For Each dr1 As DataRow In DataTables("表A").Select("")
    Dim dr2 As DataRow = DataTables("表B").AddNew()

    dr2("计划单号") = e.Form.Controls("TextBox1").Text
    For i As Integer = 0 To Cols1.Length -1
        dr2(Cols2(i)) = dr1(Cols1(i))
    Next
Next