Dim r As Row = Tables("分期付款").Current
If r IsNot Nothing
Dim Filter As String = "业务编号 = '" & r("业务编号") &"'"
Dim sql As String = "select * from (select 交易日期,账户编号,账户名称,业务名称,交易金额,对象编号,对象名称,出账,账单编号,业务编号,审核,备注,交易方式,出账日期 from {分期明细} where " & Filter
sql &= " union all select 交易日期,账户编号,账户名称,业务名称,交易金额,对象编号,对象名称,出账,账单编号,业务编号,审核,备注,交易方式,出账日期 from {费用明细} where " & Filter & ") As a order by 交易日期"
Dim cmd As new SQLCommand
cmd.CommandText = sql
Dim dt As DataTable = cmd.ExecuteReader()
DataTables("支出明细").DataRows.Clear
For Each mr As DataRow In dt.DataRows
Dim pr As DataRow = DataTables("支出明细").AddNew
For Each cl As Col In Tables("支出明细").Cols
If pr.DataTable.DataCols.Contains(cl.Name)
pr(cl.Name) = mr(cl.Name)
End If
Next
Next
End If
加好友 
发短信
Post By：2018/8/19 18:07:00 [显示全部帖子]
