|
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
|
加好友 
发短信
Post By：2019/8/2 19:21:00 [显示全部帖子]
