Re: [VB6 ] 查詢問題 Part2
這個form全部的程式碼都po上來了>"<
真的不知道問題出在哪
請大大救救我吧 Q_Q
============================================================
出現的錯誤訊息是：
您要求變更資料表,由於會對索引、主索引鍵或關聯產生重複的值,所以不會成功。
變更欄位的資料或變更那些包含著重複資料的欄位、移除索引或重新定義索引以允
許重複索引值，然後再試一次。
==============================================================
按除錯出來的問題是：
RS.Filter = "收料單單號 Like '" & Text1.Text & "'"
=============================================================
Dim RS As ADODB.Recordset
Private Sub Command1_Click()
RS.AddNew
End Sub
Private Sub Command2_Click()
RS.Update
DataGrid1.Refresh
MsgBox "資料庫更新完畢"
End Sub
Private Sub Command3_Click()
RS.Delete
End Sub
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
Private Sub Form_Load()
Set RS = Adodc1.Recordset
End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 59.121.186.31
討論串 (同標題文章)
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
