主题：跨表数据引用和计算

Dim zgt As Integer    '声明储值变量

Dim zgt1 As Integer    '声明储值变量

Dim zgt2 As Integer    '声明储值变量

Dim Filter As String = "学号 = '" & e.DataRow("学号") & "'"  '声明关联列

Dim drs As List(of DataRow) = DataTables("成绩表").Select(Filter)  '声明关联列变量集合

Dim dr As DataRow '搜索变量集合每一个成员

Select Case e.DataCol.Name

    Case "主观题1","主观题2"

        If e.DataRow("主观题1") = "t" Then

            zgt1 = 1

        End If

        If e.DataRow("主观题2") = "t" Then

            zgt2 = 1

        End If      '给相关列赋值

        zgt=zgt1+zgt2

        For Each dr In drs

            dr("成绩1") = zgt   '将相关值写入从表相关列

        Next

End Select