我实在想不出什么办法，这小系统2015年被赶鸭子上架做的，功能很简单，主要是用于管理很多小项目，事业单位穷得一比，跟领导要钱，好象要他家的，只能麻烦各位老师了！！！

主要是在 “项目报账明细” 录好数据后 在 “开单” 点“开单号”目录数表 会自动填"开单号|报账日期|项目编号|乡镇|村名|项目名称|项目资金名称|报账人"   然后打印

项目事件

 

AfterOpenProject

 

If User.Type <> UserTypeEnum.Developer Then

    TableCaptionVisible = False

Else

    TableCaptionVisible = True

End If

 

MainTableChanged

 

If  MainTable.Name = "项目报账明细" Then

    Dim tb As New DropTreeBuilder

    tb.SourceTable = DataTables("项目省批复") \'指定目录树表

    tb.TreeCols = "项目编号|项目名称" \'指定用于生成目录树的列

    tb.SourceCols = "项目编号|项目资金名称|乡镇|村名|项目名称" \'指定数据来源列

    tb.ReceiveCols = "项目编号|项目资金名称|乡镇|村名|项目名称" \'指定数据接收列

    Tables("项目报账明细").Cols("项目编号").DropTree = tb.Build()

End If

If  MainTable.Name = "项目报账明细" Then

    Dim tb As New DropTreeBuilder

    tb.SourceTable = DataTables("物资价格") \'指定目录树表

    tb.TreeCols = "物资名称|单价" \'指定用于生成目录树的列

    tb.SourceCols = "物资编号|物资名称|单价" \'指定数据来源列

    tb.ReceiveCols = "物资编号|物资名称|单价" \'指定数据接收列

    Tables("项目报账明细").Cols("物资名称").DropTree = tb.Build()

End If

If  MainTable.Name = "项目报账明细" Then

    Dim tb As New DropTreeBuilder

    tb.SourceTable = DataTables("供应商信息") \'指定目录树表

    tb.TreeCols = "报账人" \'指定用于生成目录树的列

    tb.SourceCols = "报账人" \'指定数据来源列

    tb.ReceiveCols = "报账人" \'指定数据接收列

    Tables("项目报账明细").Cols("报账人").DropTree = tb.Build()

End If

If  MainTable.Name = "开单" Then

    Dim tb As New DropTreeBuilder

    tb.SourceTable = DataTables("项目报账明细") \'指定目录树表

    tb.TreeCols = "开单号|项目编号" \'指定用于生成目录树的列

    tb.SourceCols = "开单号|报账日期|项目编号|乡镇|村名|项目名称|项目资金名称|报账人" \'指定数据来源列

    tb.ReceiveCols = "开单号|报账日期|项目编号|乡镇|村名|项目名称|项目资金名称|报账人" \'指定数据接收列

    Tables("开单").Cols("开单号").DropTree = tb.Build()

End If