Dim BB As String
BB = Forms("删除数据").Controls("输入单位地址").text
If BB <> "" Then
Tables("删除数据_Table1").DataSource = DataTables("单位基本信息录入")
Tables("删除数据_Table1").SetColVisibleWidth("单位名称|120|单位地址|160|单位负责人|100")
with e.Form
Dim dst As Table = Tables("单位基本信息录入")
Dim txb1 As WinForm.TextBox = .Controls("输入单位地址")
Tables("删除数据_Table1").Filter = "[单位地址] Like '*" & txb1.text & "*'"
end with
else
With e.Form
Tables("删除数据_Table1").Filter = "_identify < 0"
Dim cmd As WinForm.TextBox = e.Form.Controls("输入单位名称")
cmd.value=""
End With
end if
Dim BB As String
BB = Forms("数据查询窗口").Controls("身份证号").text
If BB <> "" Then
Tables("数据查询窗口_Table1").DataSource = DataTables("人事工资管理")
Tables("数据查询窗口_Table1").SetColVisibleWidth("单位名称|60|姓名|80|身份证号|180")
with e.Form
Dim dst As Table = Tables("人事工资管理")
Dim txb1 As WinForm.TextBox = .Controls("身份证号")
Tables("数据查询窗口_Table1").Filter = "[身份证号] Like '*" & txb1.text & "*'"
end with
else
With e.Form
Tables("数据查询窗口_Table1").Filter = "_identify < 0"
Dim cmd As WinForm.TextBox = e.Form.Controls("输入查询姓名")
cmd.value=""
End With
end if