Foxtable(狐表) → 用户栏目 → 专家坐堂 → 查询出的数据怎么同步另一个表中？


  共有1759人关注过本帖树形打印复制链接

主题：查询出的数据怎么同步另一个表中？
帅哥哟，离线，有人找我吗？
lrh9537
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：399 积分：3266 威望：0 精华：0 注册：2012/11/16 12:19:00 		查询出的数据怎么同步另一个表中？  发帖心情 Post By：2024/9/26 16:37:00 [显示全部帖子]

我在上表"收入分析表"中增加了一列”低收入_户数“，然后在中间设置了两个单选按钮“收入低于10000元”和“收入低于13000元”，当我点“收入低于10000元”，查询出下表"收入下滑表"中“收入低于10000元”的数据，同步在上表"收入分析表"中显示数据，怎么写代码？
下面是查询代码：
Dim Filter As String
If e.Form.Controls("RadioButton6").Checked Then
    Filter = "人均纯收入2024年 < 10000 "
End If

If Filter > "" Then
    Tables("收入下滑表").Filter = Filter
    If Tables("收入下滑表").rows.count > 0 Then
        Tables("收入下滑表").Filter = Filter
    Else
        MessageBox.Show("没有符合条件的数据")
    End If
End If
[此贴子已经被作者于2024/9/27 12:37:35编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
lrh9537
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：399 积分：3266 威望：0 精华：0 注册：2012/11/16 12:19:00 		  发帖心情 Post By：2024/9/26 16:53:00 [显示全部帖子]

上表是统计数据，下表是查询出的数据，怎么实现统计？

 回到顶部
帅哥哟，离线，有人找我吗？
lrh9537
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：399 积分：3266 威望：0 精华：0 注册：2012/11/16 12:19:00 		  发帖心情 Post By：2024/9/26 17:21:00 [显示全部帖子]

请赐教指导，谢谢

 回到顶部
帅哥哟，离线，有人找我吗？
lrh9537
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：399 积分：3266 威望：0 精华：0 注册：2012/11/16 12:19:00 		  发帖心情 Post By：2024/9/27 8:14:00 [显示全部帖子]


请指导
[此贴子已经被作者于2024/9/27 9:22:31编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
lrh9537
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：399 积分：3266 威望：0 精华：0 注册：2012/11/16 12:19:00 		  发帖心情 Post By：2024/9/27 8:48:00 [显示全部帖子]

在“乡镇”行加上合计数怎么整？

 回到顶部
帅哥哟，离线，有人找我吗？
lrh9537
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：399 积分：3266 威望：0 精华：0 注册：2012/11/16 12:19:00 		  发帖心情 Post By：2024/9/27 9:22:00 [显示全部帖子]

接上实例代码中“合计”数，怎么用代码写？

 回到顶部
帅哥哟，离线，有人找我吗？
lrh9537
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：399 积分：3266 威望：0 精华：0 注册：2012/11/16 12:19:00 		  发帖心情 Post By：2024/9/27 9:59:00 [显示全部帖子]

Dim Filter As String 

If e.Form.Controls("RadioButton6").Checked Then 
    Filter = "人均纯收入2024年 < 10000" 
End If 

If Filter > "" Then 
    Tables("收入下滑表").Filter = Filter
    DataTables("收入分析表").ReplaceFor("低收入_户数", Nothing)
    If Tables("收入下滑表").Rows.Count = 0 Then 
        MessageBox.Show("没有符合条件的数据：" & Filter)
        Return
    End If
    Dim b As New GroupTableBuilder("统计表1", DataTables("收入下滑表"))
    b.Filter = Filter
    b.Groups.AddDef("乡镇")
    b.Totals.AddDef("乡镇", AggregateEnum.Count, "户数")
    
    Dim dt As DataTable = b.Build(True) '生成统计表　
    For Each dr As DataRow In dt.DataRows
        Dim fr As DataRow = DataTables("收入分析表").Find("乡镇='" & dr("乡镇") & "'")
        If fr IsNot Nothing Then
            fr("低收入_户数") = dr("户数")
        End If 
    Next
End If

"收入分析表"中有合计行，上述代码中把乡镇的"低收入_户数"统计出来了，就差“合计”行没有总数，现在就是把总数统计出来显示在“合计”行，这个怎么在上述代码中增加“合计”
 回到顶部
帅哥哟，离线，有人找我吗？
lrh9537
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：399 积分：3266 威望：0 精华：0 注册：2012/11/16 12:19:00 		  发帖心情 Post By：2024/9/27 10:19:00 [显示全部帖子]

如果乡镇为“合计”，那么“合计”=户数的总数

 回到顶部
帅哥哟，离线，有人找我吗？
lrh9537
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：399 积分：3266 威望：0 精华：0 注册：2012/11/16 12:19:00 		  发帖心情 Post By：2024/9/27 10:44:00 [显示全部帖子]

使用DataTables("收入分析表").Find查询乡镇=合计的行，然后遍历所有列，使用DataTables("收入分析表").Compute进行统计
Dim r As DataRow = DataTables("收入分析表").Find("乡镇= " 合计"“)
指导下代码，谢谢
 回到顶部
帅哥哟，离线，有人找我吗？
lrh9537
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：399 积分：3266 威望：0 精华：0 注册：2012/11/16 12:19:00 		  发帖心情 Post By：2024/9/27 11:01:00 [显示全部帖子]

DataTables("收入分析表").Find查询乡镇=合计的行，然后遍历所有列，使用DataTables("收入分析表").Compute进行统计
求完整的代码写法，谢谢
 回到顶部
总数 12 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 5 次数据查询