主题：帮助文件中的

判断一下成绩是否为空，不为空才增加：

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