主题：[求助]狐爸，列子发上来了！

Dim txt As String =  e.Form.Controls("xmzd").Value
If txt = "" Then
    Return
End If
Dim flt As String
If IsNumeric(txt) Then
    If txt.Length <> 5 Then
        messagebox.show("请输入正确的五位数编号")
        Return
    Else
        flt = "编号 = '" & txt & "'"
    End If
Else
    flt = "姓名 = '" & txt & "'"
End If
If  DataTables("基本资料").Find(flt) Is Nothing Then
    messagebox.show("查无此人")
Else
    Tables("资料查询_资料查询").filter = flt
    For Each c As col In Tables("资料查询_资料查询").Cols
        c.Visible = True
    Next
End If

呵呵，我不明白你的问题，重新整理问题，说清楚点，另外发帖提问的。

另再次建议，先打基础，如果我写给你的代码，你看不明白，只知道套用，做不到举一反三的话，就没有意义了。