If e.DataCol.Name = "动态列" Then \'如果是已结帐列的内容变动

    If e.NewValue = True Then \'而且变动后的值是True(已勾选)

        e.DataRow("间隔") = Nothing \'如果为空,则清除出生日期

        Else

        Dim t As Table = Tables("表A")

        Dim k As Integer = 0

        Dim m As Integer = -1

        For i As Integer = 0 To t.rows.count - 1

            If t.rows(i).isnull("动态列") Then

                k = k + 1

            End If

            If t.rows(i).isnull("动态列") = False Then

                For j As Integer = m + 1 To i

                    If t.rows(j)("间隔") = Nothing Then

                        t.rows(j)("间隔") = k

                    End If

                Next

                m = i

                k = 0

            End If

        Next

        For j As Integer = m + 1 To t.rows.count - 1

            If t.rows(j)("间隔") = Nothing Then

                t.rows(j)("间隔") = k

            End If

        Next

    End If

End If