主题：报告自动排版Bug

下列代码，无法自动排版，请看看原因

           If  not e.DataRow.IsNull("预付比例") Then

              If( (e.DataRow("预付比例")+e.DataRow("本月付款比例")) > 1) Then

                MessageBox.Show( "《" & e.DataTable.Name & "》" & "警告:<预付比例>+<本月付款比例> 大于 100% !  存盘失败!")

                e.Cancel = True

            End If

            Index =    Tables(e.DataTable.Name).FindRow(e.DataRow) '找出此行在销售数据Table中的位置

            If Index > -1 Then '如果找到此行

                Tables(e.DataTable.Name).Position = Index '将焦点定位到此行

            End If

            MainTable = Tables(e.DataTable.Name) '选择销售数据表作为主表.

        End If

    End If

最后多了一个end if 我知道