Dim r As Row = e.Table.Current If r Is Nothing Then Return If Forms("主界面").Opened Forms("主界面").Controls("TextBox7").text = r("工作单位_镇街") & r("工作单位_村居社区") & r("职务") Forms("主界面").Controls("TextBox4").text = IIF(r.IsNull("入党时间"),"否","是") With Tables("村干部基本信息") If .Current Is Nothing Then Tables("主界面_Table2").Filter = "False" Tables("主界面_Table3").Filter = "False" Tables("主界面_Table4").Filter = "False" Else Tables("主界面_Table2").Filter = "村干部编号 = '" & .Current("村干部编号") & "'" Tables("主界面_Table3").Filter = "村干部编号 = '" & .Current("村干部编号") & "'" Tables("主界面_Table4").Filter = "村干部编号 = '" & .Current("村干部编号") & "'" End If End With End If
|