# Re: Answer for re-help

Posted by spencer yang on March 24, 1999 at 02:21:17:

In Reply to: Re: dbgrid??再帮帮我...... posted by 小笨蛋 on March 20, 1999 at 18:16:41:

: 请用较传统方式
assumption
Field1 Name ' 姓名

sub findExample()
dim strFind as string
dim strName as string
dim strBrithday as date
dim strAddress as string
strFind = text1.text
with data1
.Findfirst "Name=" & chr(39) & strFind & chr(39)
if .NoMatch then
MsgBox "No Record for Find"
else
str

Follow Ups: