主题：转换表某一列等于原始表某一列的双数

以下银行转换表中的代码，目的是实现银行原始记录转换成为我需要的格式，原表的数据分成两行，转换后的需要把数据变成一行，因此需要转换后的数据有些列为原始表的单数行，有些为双数行，编写了以下代码，但是实现不了需要的功能，怎么修改？

Select Case e.DataCol.Name
Case "银行卡号"
msgbox("[_Identify]")
msgbox("[_Identify] Mod 2 = 0")
    For Each dr As DataRow In DataTables("农行原1").Select("[_Identify] Mod 2 = 0 ")
      e.DataRow("银行卡号") = dr("银行卡号")
    Next
End Select

上传例子说明，根据什么逻辑选单数行还是双数行。

如例子中所示，一笔交易被分割到了两行，我的需求是怎么把这两行数据合并成一行，并显示在转换表中

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目14.foxdb

以下是我写的代码

Select Case e.DataCol.Name
    Case "行号"
        Dim dr As DataRow = DataTables("原表").find("行号\2 = '" & e.DataRow("行号") & "'")
        Dim dr2 As DataRow = DataTables("原表").find("行号 \ 2 + 1= '" & e.DataRow("行号") & "'")
        e.DataRow("查询账号") = dr("第一列")
        e.DataRow("对方账号及户名") = dr2("第一列")
End Select

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目14.foxdb