[求助]出现重复 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]出现重复

共有1827人关注过本帖树形打印复制链接主题：[求助]出现重复

易服

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：787 积分：6349 威望：0 精华：0 注册：2008/9/1 8:26:00

[求助]出现重复 发帖心情

Post By：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编辑过]

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/3/4 15:46:00 [只看该作者]

这些列，公益林表肯定至少有一项是不相同的，比如多了空格之类的

乡|村|组|户主姓名|一卡通帐号|身份证号

[此贴子已经被作者于2016/3/4 15:47:01编辑过]

大红袍

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/3/4 15:47:00 [只看该作者]

上传具体例子看看。

易服

小大 4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：787 积分：6349 威望：0 精华：0 注册：2008/9/1 8:26:00

Post By：2016/3/4 15:55:00 [只看该作者]

由纵向表到横向表

[此贴子已经被作者于2016/6/2 11:29:06编辑过]

大红袍

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/3/4 15:59:00 [只看该作者]

重复的问题，请看2楼、3楼

易服

小大 6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：787 积分：6349 威望：0 精华：0 注册：2008/9/1 8:26:00

Post By：2016/3/4 16:30:00 [只看该作者]

帮我看看

[此贴子已经被作者于2016/3/9 8:58:18编辑过]

大红袍

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：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

下一主题 >> << 上一主题

主题：[求助]出现重复