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


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

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


加好友 发短信
等级：三尾狐 帖子：651 积分：6614 威望：0 精华：0 注册：2016/12/27 21:05:00 		获取数据  发帖心情 Post By：2022/3/2 19:45:00 [显示全部帖子]

我想在“补助发放”窗体中实现：选择发放日期，后点击生成本期工资，请问指教，谢谢！
1、前6列自动从“被征地农民基本情况”表中获取，
2、参加保险情况从“参加保险明细表”中获取，死亡情况从“死亡人员明细表”中获取；
3、是否结清从“参加保险明细表”和“死亡人员明细表”中获取
4、补助依据及期限说明：见附件的excel表中
 回到顶部
帅哥哟，离线，有人找我吗？
rgbjwjb
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：651 积分：6614 威望：0 精华：0 注册：2016/12/27 21:05:00 		  发帖心情 Post By：2022/3/2 19:56:00 [显示全部帖子]

链接：https://pan.baidu.com/s/1zGUT8GnthtFpSWzyJ_tVKg 
提取码：0jjx 
--来自百度网盘超级会员V4的分享

链接：https://pan.baidu.com/s/1raeyDuc48yPop9BvOgfMAg 
提取码：zcgs 
--来自百度网盘超级会员V4的分享
 回到顶部
帅哥哟，离线，有人找我吗？
rgbjwjb
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：651 积分：6614 威望：0 精华：0 注册：2016/12/27 21:05:00 		  发帖心情 Post By：2022/3/3 10:48:00 [显示全部帖子]

因为补助发放标准要涉及年龄、性别、参保状况、是否结清等因素，准确获取”月补助标准”我觉得比较复杂，利用查询表又不能保存，还是想请老师将我上传的实例打开看下，谢谢！

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


加好友 发短信
等级：三尾狐 帖子：651 积分：6614 威望：0 精华：0 注册：2016/12/27 21:05:00 		  发帖心情 Post By：2022/3/3 17:12:00 [显示全部帖子]

获取数据部分数据时我下面的代码，怎么出现了死循环，且没能获取到任何数据，请指教，谢谢！
Tables("补助发放表").StopRedraw()
For n As Integer = 0 To Tables("被征地农民基本情况").Rows.Count -1
    Dim dt1 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")
    Dim dr As DataRow = DataTables("被征地农民基本情况").find("土地交付日期 <= #" & dt1.value & "#")
    If dr IsNot Nothing Then
        Dim r As Row = Tables("补助发放表").AddNew()
        r("姓名") = dr("姓名")
        r("身份证号码")=dr("身份证号码")
        r("账号")=dr("账号")
        r("开户行")=dr("开户行")
        r("所属期")=dt1.Value
    End If
Next
Tables("补助发放表").ResumeRedraw()
DataTables("补助发放表").Save
 回到顶部
帅哥哟，离线，有人找我吗？
rgbjwjb
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：651 积分：6614 威望：0 精华：0 注册：2016/12/27 21:05:00 		  发帖心情 Post By：2022/3/3 22:50:00 [显示全部帖子]

我在"补助发放表"的datacolchanged事件中用如下代码获取“本期应发总额”，怎么没有反应的？请指教，谢谢！
Select Case e.DataCol.Name
    Case "本期年龄","性别"
        For Each r1 As DataRow In DataTables("补助发放表").DataRows
            If r1("性别") ="男" And r1("本期年龄")>0 And r1("本期年龄")<16 Then
                r1("本期应发总额")=50
            End If
            If r1("性别") ="男" And r1("本期年龄")>=16 And r1("本期年龄")<18 Then
                r1("本期应发总额")=200
            End If
            If r1("性别") ="男" And r1("本期年龄")>=18 And r1("本期年龄")<20 Then
                r1("本期应发总额")=100
            End If
            If r1("性别") ="男" And r1("本期年龄")>=20 And r1("本期年龄")<50 Then
                r1("本期应发总额")=80
            End If
            If r1("性别") ="男" And r1("本期年龄")>=50 And r1("本期年龄")<6 Then
                r1("本期应发总额")=200
            End If
        Next
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
rgbjwjb
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：651 积分：6614 威望：0 精华：0 注册：2016/12/27 21:05:00 		  发帖心情 Post By：2022/3/4 17:43: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
            If 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 If
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
rgbjwjb
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：651 积分：6614 威望：0 精华：0 注册：2016/12/27 21:05:00 		  发帖心情 Post By：2022/3/4 21:01:00 [显示全部帖子]

如果dt1.value所对应的日期在“补助发放表”中“所属期”已经存在，我想做个提示“该期的补助表已经生成，请重新选择所属期”，代码怎么写？放在何处？请指教，谢谢！
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
    r("年龄段")=dr("年龄段")
    r("市级补助截止日期一")=dr("市补助截止日期一")
    r("市级补助截止日期二")=dr("市补助截止日期二")
    r("土地交付日期")=dr("土地交付日期")
Next
Tables("补助发放表").ResumeRedraw()
DataTables("补助发放表").Save
 回到顶部
帅哥哟，离线，有人找我吗？
rgbjwjb
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：651 积分：6614 威望：0 精华：0 注册：2016/12/27 21:05:00 		  发帖心情 Post By：2022/3/5 12:22:00 [显示全部帖子]

我用下面的代码删除时，选中的行中总有一条记录删不掉，请问如何修改？请指教，谢谢！
If MessageBox.Show("是否删除选定行?","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.No Then
    e.Cancel= True
Else
    For Each r As Row In Tables("补助发放表").Rows
        If r.Checked =True Then
            r.Delete
        End If
    Next
End If
DataTables("补助发放表").Save()
 回到顶部
帅哥哟，离线，有人找我吗？
rgbjwjb
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：651 积分：6614 威望：0 精华：0 注册：2016/12/27 21:05:00 		  发帖心情 Post By：2022/3/5 13:48:00 [显示全部帖子]

我用下面的代码更新“本级补助截止日期”，出错在哪里？请指教，谢谢！
For t As Integer = 0 To Tables("被征地农民基本情况").Rows.Count-1
    Dim r1 As Row = Tables("被征地农民基本情况").Current
    Dim dr As DataRow = DataTables("死亡人员明细表").find("身份证号码='" & r1("身份证号码") & "'")
    If dr IsNot Nothing And dr("是否结清")= "已结清" Then
        r1("本级补助截止日期")=dr("死亡日期")
    End If
Next
 回到顶部
帅哥哟，离线，有人找我吗？
rgbjwjb
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：651 积分：6614 威望：0 精华：0 注册：2016/12/27 21:05:00 		  发帖心情 Post By：2022/3/5 14:27:00 [显示全部帖子]

显示“for循环控制变量类型不能是row”

 回到顶部
总数 15 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.04688 秒, 5 次数据查询