主题：帮助文件中的

两个表，一个为录入表，一个为数据主表，如何将录入表的内容导入的数据表中？录入表改成窗体也可以。

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

点击浏览该文件:输入表设计.foxdb

谢谢！困扰我好长时间的问题你几分钟就解决了，太强了！我搞不懂，代码中根本没出现数据主表，数据如何进去的呀？

 

e.Form.Controls("Table1").Table.DataTable.DataRows.Clear()

For Each dr As DataRow In DataTables("录入表").DataRows

    For Each dc As DataCol In DataTables("录入表").DataCols

        If dc.Name <> "姓名" Then

            Dim r As Row = e.Form.Controls("Table1").Table.AddNew()

            r("姓名") = dr("姓名")

            r("课程") = dc.Name

            r("分数") = dr(dc.Name)

        End If

    Next

Next

如果在录入表和数据主表中增加学号列，代码怎么写呀？

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

点击浏览该文件:输入表设计.foxdb

如果张三的没有语文成绩，在数据主表中应不显示张三语文行的记录, （这看起来不合理，其实在实际应用中科目代表机器，有十几台机器，有的机器没有生产，没有生产的机器也会在数据主表中生成行，这样会增加很多无用的行。