以下银行转换表中的代码,目的是实现银行原始记录转换成为我需要的格式,原表的数据分成两行,转换后的需要把数据变成一行,因此需要转换后的数据有些列为原始表的单数行,有些为双数行,编写了以下代码,但是实现不了需要的功能,怎么修改?
Select Case e.DataCol.NameCase "银行卡号"msgbox("[_Identify]")msgbox("[_Identify] Mod 2 = 0") For Each dr As DataRow In DataTables("农行原1").Select("[_Identify] Mod 2 = 0 ") e.DataRow("银行卡号") = dr("银行卡号") NextEnd Select