| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 获取数据 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=175389) |
|
| -- 作者：rgbjwjb -- 发布时间：2022/3/2 19:45:00 -- 获取数据
|
|
| -- 作者：rgbjwjb -- 发布时间：2022/3/2 19:56:00 -- 链接：https://pan.baidu.com/s/1zGUT8GnthtFpSWzyJ_tVKg 提取码：0jjx --来自百度网盘超级会员V4的分享 链接：https://pan.baidu.com/s/1raeyDuc48yPop9BvOgfMAg 提取码：zcgs --来自百度网盘超级会员V4的分享 |
|
| -- 作者：有点蓝 -- 发布时间：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
|
|
| -- 作者：rgbjwjb -- 发布时间：2022/3/3 10:48:00 -- 因为补助发放标准要涉及年龄、性别、参保状况、是否结清等因素，准确获取”月补助标准”我觉得比较复杂，利用查询表又不能保存，还是想请老师将我上传的实例打开看下，谢谢！ |
|
| -- 作者：有点蓝 -- 发布时间：2022/3/3 11:01:00 -- 年龄、性别、参保状况、是否结清等因素，对准确获取”月补助标准”有什么影响？ 最终是要把查询表的数据填充到窗口表，窗口表能够保存即可，查询表能不能保存有什么影响？ 请根据3楼的提示自己先动手做一做，什么地方不通再说
[此贴子已经被作者于2022/3/3 11:01:26编辑过]
|
|
| -- 作者：rgbjwjb -- 发布时间：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
|
|
| -- 作者：有点蓝 -- 发布时间：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 |
|
| -- 作者：rgbjwjb -- 发布时间：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 |
|
| -- 作者：有点蓝 -- 发布时间：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 |
|
| -- 作者：rgbjwjb -- 发布时间：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 |