能帮忙看看这个吗?
投资记录表明明就有 记录参数_操作时间列,为什么说找不到呢,感谢 感谢
Dim dt_cwhz As DataTable = DataTables("财务汇总")
Dim dt_tzmx As DataTable = DataTables("投资记录")
For Each ndr As DataRow In dt_cwhz.Select("")
Dim i As Integer = ndr("年份")
Dim j As Integer = ndr("月份")
If i > 0 AndAlso j > 0 Then
Dim d As Date = new Date(i, j, 1)
'
Dim filter = "记录参数_操作时间 >= #" & d & "# and 记录参数_操作时间 < #" & d.AddMonths(1) & "#"
ndr("投资_增加金额") = val(dt_tzmx.compute("sum(购入_增投合计)", filter))
ndr("投资_减少金额") = val(dt_tzmx.compute("sum(售出_撤资合计)", filter))
'ndr("投资_增加收益") = val(dt_tzmx.compute("sum(收益_回报资金)", filter))
Dim afdr As DataRow = dt_tzmx.Find(filter, "项目属性_变动日期 desc,[_Identify] desc")
If afdr IsNot Nothing Then
ndr("投资_在运资金") = afdr("投资_在投合计")
Else
ndr("投资_在运资金") = 0
End If