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("首次发放日期")
Next
ElseIf DataTables("补助发放表").compute("count(所属期)","所属期=#" & dt1.value & "#") > 0 Then
msgbox("该期的补助表已经生成,请重新选择所属期")
End If
Tables("补助发放表").ResumeRedraw()