Tables("工程合同基础数据").Sort = "财务编号"

If Forms("单项合同各项数据查询").Opened Then

    Dim btn As WinForm.Button = Forms("单项合同各项数据查询").Controls("刷新概况")

    btn.PerformClick()

ElseIf Forms("项目清算").Opened Then

    zhtbjzgl = True

Else

    Dim t As Table = Tables("工程合同基础数据")

    Dim n As Integer = t.Rows.count

    If n = 1 Then

        zhtbjzgl = False \'加载主合同时不加载所有关联表(主要用于项目清算窗口打开时选择项目合同编号)

    Else

        zhtbjzgl = True

    End If

End If

e.DataTable.LoadChildren("支出合同研发成本")

e.DataTable.LoadChildren("资金调整")

If zhtbjzgl = False Then

    e.DataTable.LoadChildren("增值税发票开票登记")

    e.DataTable.LoadChildren("补充合同或决算数据")

    e.DataTable.LoadChildren("应收款收入数据")

    e.DataTable.LoadChildren("其他成本费用")

    e.DataTable.LoadChildren("工资表")

    e.DataTable.LoadChildren("总部申报")

    If DataTables.Contains("固定资产明细") = True

        e.DataTable.LoadChildren("固定资产明细")

    End If

    e.DataTable.LoadChildren("收入合同移交记录")

    e.DataTable.LoadChildren("项目借款数据")

    e.DataTable.LoadChildren("项目资金管理")

End If