- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 转换表某一列等于原始表某一列的双数 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=84666)
-- 发布时间：2016/5/7 5:29:00
-- 转换表某一列等于原始表某一列的双数
以下银行转换表中的代码，目的是实现银行原始记录转换成为我需要的格式，原表的数据分成两行，转换后的需要把数据变成一行，因此需要转换后的数据有些列为原始表的单数行，有些为双数行，编写了以下代码，但是实现不了需要的功能，怎么修改？
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
-- 发布时间：2016/5/7 9:17:00
--
上传例子说明，根据什么逻辑选单数行还是双数行。
另外根据_Identify关联数据是很悬的，不建议使用
-- 发布时间：2016/5/7 9:35:00
--
如例子中所示，一笔交易被分割到了两行，我的需求是怎么把这两行数据合并成一行，并显示在转换表中
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目14.foxdb |
-- 发布时间：2016/5/7 9:51:00
--
以下是我写的代码
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
-- 发布时间：2016/5/8 14:56:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目14.foxdb |