以文本方式查看主题
- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]出现重复 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=81735)
|
-- 作者：易服
-- 发布时间：2016/3/4 15:43:00
-- [求助]出现重复
按钮代码：
DataTables("户主公益林").DataRows.clear
DataTables("户主公益林").StopRedraw
For Each nm() As String In DataTables("公益林").GetValues("乡|村|组|户主姓名|一卡通帐号|身份证号")
Dim dr As DataRow = DataTables("户主公益林").AddNew()
dr("乡") = nm(0)
dr("村") = nm(1)
dr("组") = nm(2)
dr("户主姓名") = nm(3)
dr("一卡通帐号") = nm(4)
dr("身份证号") = nm(5)
dr("国家级") = DataTables("公益林").Compute("max(公益林面积)","公益林级别 = \'国家级\'and 户主姓名 = \'" & nm(3) & "\'")
dr("省级") = DataTables("公益林").Compute("max(公益林面积)","公益林级别 = \'省级\'and 户主姓名 = \'" & nm(3) & "\'")
Next
DataTables("户主公益林").ResumeRedraw
[此贴子已经被作者于2016/6/2 11:29:37编辑过]
|
-- 作者：大红袍
-- 发布时间：2016/3/4 15:46:00
--
这些列，公益林表肯定至少有一项是不相同的，比如多了空格之类的
乡|村|组|户主姓名|一卡通帐号|身份证号
[此贴子已经被作者于2016/3/4 15:47:01编辑过]
|
-- 作者：大红袍
-- 发布时间：2016/3/4 15:47:00
--
上传具体例子看看。
|
-- 作者：易服
-- 发布时间：2016/3/4 15:55:00
--
由纵向表到横向表
[此贴子已经被作者于2016/6/2 11:29:06编辑过]
|
-- 作者：大红袍
-- 发布时间：2016/3/4 15:59:00
--
重复的问题，请看2楼、3楼
|
-- 作者：易服
-- 发布时间：2016/3/4 16:30:00
--
帮我看看
[此贴子已经被作者于2016/3/9 8:58:18编辑过]
|
-- 作者：大红袍
-- 发布时间：2016/3/4 17:20:00
--
测试了一下，没问题，一卡通账号不同啊。
DataTables("户主公益林").DataRows.clear
DataTables("户主公益林").StopRedraw
For Each nm() As String In DataTables("公益林").GetValues("乡|村|组|户主姓名|身份证号")
Dim dr As DataRow = DataTables("户主公益林").AddNew()
dr("乡") = nm(0)
dr("村") = nm(1)
dr("组") = nm(2)
dr("户主姓名") = nm(3)
\'dr("一卡通帐号") = DataTables("公益林").GetComboListString("身份证号","身份证号 = \'" & nm(4) & "\'")
dr("身份证号") = nm(4)
dr("国家级") = DataTables("公益林").Compute("max(公益林面积)","公益林级别 = \'国家级\'and 身份证号 = \'" & nm(4) & "\'")
dr("省级") = DataTables("公益林").Compute("max(公益林面积)","公益林级别 = \'省级\'and 身份证号 = \'" & nm(4) & "\'")
Next
DataTables("户主公益林").ResumeRedraw
|