Dim dr As DataRow = DataTables("企业档案").Find("企业_企业序号='" & e.DataRow("企业链号") & "'") If dr IsNot Nothing Then dr("工作_提成可领")=DataTables("订单附表").Compute("sum(订单核算_应提成额)","企业链号='" & e.DataRow("企业链号") & "' and 业务往来_方式='订单'and 业务往来_订单性质='工作'and 订单核算_结领否='未发放'and 收款信息_付款否=true") End If End If '企业档案提成可领取计算