e.DataRow("转换前科目编号") 的内容是“1001,1002”
Dim filter3 As String = "科目编号 in (""" & e.DataRow("转换前科目编号").Replace(",","','") & "'")"msgbox(filter3) e.DataRow("期初余额_借方金额") = DataTables("科目余额").Compute("sum(期初余额_借方金额)","科目编号 in (""" & e.DataRow("转换前科目编号").Replace(",","','") & """)")