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

链接：https://pan.baidu.com/s/1MbjmNHMg7nBmFaFNSJbJrg

提取码：ncrv

统计了生成的时间有6.2个小时，仔细发现”生成本期工资”的表中仍然有：年龄段=“四”和 “所属期”大于“本级截止发放日”的记录生成。我想如果筛选条件起作用的话，生成的时间可能会短些，请老师帮看下，筛选的相关代码位置要不要做修改？，请指教，谢谢！

哪个窗口，哪个事件的代码？

补助发放\“补助发放”窗体，“生成本期工资”单击事件

“生成本期工资”只是做了个筛选，但是后续其它代码没看到和这个筛选有任何关系，也用不到这个筛选。

如果是要用到下面的DataTables("被征地农民基本情况").Select，应该把条件放到select里，select和tables(xxx).filter是没有任何关系的

按照老师的要求，我把选择的条件放到了select里了，选择的条件还是没起作用，运行时间还差不多。其实我只是想把满足条件的记录跳过去不执行，以便缩短执行时间，可一直没能如愿，代码不知如何修改？请指教，谢谢！

怎么改的，重新贴出按钮代码

Tables("补助发放表").StopRedraw()

Dim dt1 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")

Dim s As String = DataTables("参加企业保险明细表").GetComboListString("身份证号码","在保月份<>#" & dt1.value & "#")

DataTables("被征地农民基本情况").Select("是否结清='未结清' and 征地时年龄段<>'四' and 本级补助截止日期>= #" & dt1.value & "# and 身份证号码 in ('" & s.replace("|","','") & "')")

If DataTables("补助发放表").compute("count(所属期)","所属期=#" & dt1.value & "#") = 0 Then

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("开户行")=dr("开户行")

r("所属期")=dt1.Value

r("征地时年龄段")=dr("征地时年龄段")

r("市级补助截止日期一")=dr("市补助截止日期一")

r("市级补助截止日期二")=dr("市补助截止日期二")

r("土地交付日期")=dr("土地交付日期")

r("本级补助截止日期")=dr("本级补助截止日期")

r("出生日期")=dr("出生日期")

r("首次发放日期")=dr("首次发放日期")

ElseIf DataTables("补助发放表").compute("count(所属期)","所属期=#" & dt1.value & "#") > 0 Then

msgbox("该期的补助表已经生成,请重新选择所属期")

End If

Tables("补助发放表").ResumeRedraw()