Foxtable(狐表) → 用户栏目 → 专家坐堂 → 获取数据


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

主题：获取数据
帅哥哟，离线，有人找我吗？
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/3/3 9:10:00 [显示全部帖子]

把3个表通过身份证号关联为一个查询表：http://www.foxtable.com/webhelp/topics/2322.htm
选择日期后对查询表进行筛选：http://www.foxtable.com/webhelp/topics/1058.htm
然后把筛选的数据取需要的列填充到窗口表即可：http://www.foxtable.com/webhelp/topics/0680.htm、http://www.foxtable.com/webhelp/topics/1533.htm
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/3/3 11:01:00 [显示全部帖子]

年龄、性别、参保状况、是否结清等因素，对准确获取”月补助标准”有什么影响？

最终是要把查询表的数据填充到窗口表，窗口表能够保存即可，查询表能不能保存有什么影响？

请根据3楼的提示自己先动手做一做，什么地方不通再说
[此贴子已经被作者于2022/3/3 11:01:26编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/3/3 17:41:00 [显示全部帖子]

这个代码本身不可能有死循环，如果数据比较多，循环完肯定需要一定时间。

如果要根据条件取数据 ，应该这样

Tables("补助发放表").StopRedraw()
    Dim dt1 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")
For each dr As DataRow in DataTables("被征地农民基本情况").select("土地交付日期 <= #" & dt1.value & "#")
        Dim r As Row = Tables("补助发放表").AddNew()
        r("姓名") = dr("姓名")
        r("身份证号码")=dr("身份证号码")
        r("账号")=dr("账号")
        r("开户行")=dr("开户行")
        r("所属期")=dt1.Value
Next
Tables("补助发放表").ResumeRedraw()
DataTables("补助发放表").Save
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/3/3 22:56:00 [显示全部帖子]

需要"本期年龄","性别"数据变化才会触发事件，或者重置列：http://www.foxtable.com/webhelp/topics/1469.htm

这个事件里不应该使用遍历
Select Case e.DataCol.Name
    Case "本期年龄","性别"
dim r1 As DataRow = e.datarow
            If r1("性别") ="男" 
if  r1("本期年龄")>0 And r1("本期年龄")<16 Then
                r1("本期应发总额")=50
elseif r1("本期年龄")>=16 And r1("本期年龄")<18 Then
                r1("本期应发总额")=200
elseif r1("本期年龄")>=18 And r1("本期年龄")<20 Then
                r1("本期应发总额")=100
elseif r1("本期年龄")>=20 And r1("本期年龄")<50 Then
                r1("本期应发总额")=80
elseif r1("本期年龄")>=50 or r1("本期年龄")<6 Then
                r1("本期应发总额")=200
            End If
end if
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/3/4 17:52:00 [显示全部帖子]

Select Case e.DataCol.Name
    Case "征地时年龄","性别"
        Dim r1 As DataRow = e.DataRow
        If r1("性别") ="男"
            If  r1("征地时年龄")>0 And r1("征地时年龄")<16 Then
                r1("年龄段")="一"
            ElseIf r1("征地时年龄")>=16 And r1("征地时年龄")<50 Then
                r1("年龄段")="二"
            ElseIf r1("征地时年龄")>=50 And r1("征地时年龄")<60 Then
                r1("年龄段")="三"
            Else
                r1("年龄段")="四"
            End If
elseIf r1("性别") ="女"
                If  r1("征地时年龄")>0 And r1("征地时年龄")<16 Then
                    r1("年龄段")="一"
                ElseIf r1("征地时年龄")>=16 And r1("征地时年龄")<45 Then
                    r1("年龄段")="二"
                ElseIf r1("征地时年龄")>=45 And r1("征地时年龄")<55 Then
                    r1("年龄段")="三"
                Else
                    r1("年龄段")="四"
                End If
        End If
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/3/5 9:04:00 [显示全部帖子]

Tables("补助发放表").StopRedraw()
Dim dt1 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")
if dataTables("补助发放表").compute("count(所属期)","所属期=#" & dt1.value & "#") > 0 then
msgbox("该期的补助表已经生成，请重新选择所属期")
else
For Each dr As DataRow In DataTables("被征地农民基本情况").Select("土地交付日期 <= #" & dt1.value & "#")
……
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/3/5 13:33:00 [显示全部帖子]

删除要倒序处理：http://www.foxtable.com/webhelp/topics/0599.htm
或者
Dim rs As List(of Row) =Tables("补助发放表").GetCheckedRows
    For Each r As Row In rs
        r.Delete
    Next
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/3/5 14:09:00 [显示全部帖子]

For r1 As Row in Tables("被征地农民基本情况").Rows
    Dim dr As DataRow = DataTables("死亡人员明细表").find("身份证号码='" & r1("身份证号码") & "' and 是否结清='已结清'")
    If dr IsNot Nothing Then
        r1("本级补助截止日期")=dr("死亡日期")
    End If
Next
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/3/5 15:07:00 [显示全部帖子]

17楼写漏一个each，自己补上
[此贴子已经被作者于2022/3/5 15:06:54编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/3/6 20:03:00 [显示全部帖子]

“本级补助”转换为数据列：http://www.foxtable.com/webhelp/topics/2494.htm

设置了表达式的表达式列不能使用代码赋值
 回到顶部
总数 13 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.07031 秒, 5 次数据查询