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("增值税fa piao开piao登记")
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