Dim tbx As WinForm.TextBox = e.Form.Controls("czdwmc")
Dim chk As WinForm.CheckBox = e.Form.Controls("mhcz")
Dim str As String = tbx.Value
Dim dr As DataRow
dim filter as string
if str > "" then
If chk.Checked Then
filter = "熔次号 Like '%" & str & "%'") '模糊查找
Else
filter ="熔次号 = '" & str & "'") '精确查找
End If
end if
Tables("粗轧录入_Table1") = filter