※ 引述《kelvinkao (關心被扭曲為找碴)》之銘言：
: 請大大幫我看一下這一小段程式碼
: 我想要比對TEXT1.TXT的資料和ACCESS資料庫裡的資料
: 如果找到 顯示在TEXT1~TEXT3.TXT
: 但是一直顯示"我要求變更資料表.........(以下略)"
: 可是我只是要比對啊...救救我吧>_<
: ========================================================
: Private Sub Command5_Click()
: FltStr = ""
: If Text1.Text <> "" Then
: RS.Filter = 收料單單號 Like Text1.Text
字串要加雙引號，包起來...
: End If
: If RS.EOF Then
: MsgBox "沒找到資料"
: Exit Sub
: End If
: Do Until RS.EOF
: For I = 0 To RS.Fields.Count - 1
: Tmp = Tmp & RS.Fields(I) & " "
: Next
: RS.MoveNext
: Loop
: End Sub
--
VB 程式設計 倉木麻衣 PTT 星爺板 行列輸入法
======================================================
Visual_Basic MaiKuraki Stephen Array
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 210.58.156.43