如提 我使用下方語法 Private Sub CommandFS_Click() dim T as string T = InputBox("請輸入會員姓名", "會員搜尋") adoPrimaryRS.MoveFirst adoPrimaryRS.Find "FNAME = " & T If adoPrimaryRS.EOF = True Then MsgBox "找不到會員資料", vbOKOnly, "抱歉" Exit Sub End If End Sub
This entry passed through the Full-Text RSS service — if this is your content and you're reading it on someone else's site, please read the FAQ at fivefilters.org/content-only/faq.php#publishers.
You are receiving this email because you subscribed to this feed at blogtrottr.com.
留言列表