请问您的编号指的我第一个问题的哪个名称啊?Select Case e.DataCol.name
Case "交易日期","单位名称","银行","现金","微信","支付宝"
Dim dr As DataRow = DataTables("汇总结算").Find("单位名称= '" & e.DataTable.name & "_" & e.DataRow("_Identify") & "'")
If dr Is Nothing Then
dr = DataTables("汇总结算").AddNew
dr("单位名称") = e.DataTable.name & "_" & e.DataRow("_identify")
End If
dr("交易日期") = e.DataRow("交易日期")
dr("单位名称") = e.DataRow("单位名称")
dr("现金") = e.DataRow("充值")
dr("银行") = e.DataRow("银行")
dr("微信") = e.DataRow("微信")
dr("支付宝") = e.DataRow("支付宝")
End Select