主题：帮助文件中的

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

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

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

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

点击浏览该文件:输入表设计.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

DataTables("录入表")

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

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

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

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

点击浏览该文件:输入表设计.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
            If dr.IsNull(dc.Name) = False Then
                Dim r As Row = e.Form.Controls("Table1").Table.AddNew()
                r("姓名") = dr("姓名")
                r("课程") = dc.Name
                r("分数") = dr(dc.Name)
            End If
        End If
    Next
Next

 

不同的设计，有不同的要求，有的人就要求不能缺项。

 

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

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