HjSoft
جمعه 03 اسفند 1386, 19:04 عصر
سلام و خسته نباشید !
من دارم یک پروژه می نویسم حالا تو یکی از فرم ها من به یک مشکل برخوردم من یک لیست دارم نه dblist و فقط هم listbox لازم دارم حالا من دو تا کد دارم که وقتی اینا رو با هم میذارم error میده
کد اول میاد تمام اطلاعات بانک رو به لیست منتقل میکنه به این صورت :
max = Adodc2.Recordset.RecordCount
Adodc2.Recordset.MoveFirst
List1.Clear
For i = 1 To max
List1.AddItem Adodc2.Recordset!work_na
Adodc2.Recordset.MoveNext
Next i
List1.ListIndex = 0
کد دوم میاد change یک تسکت باکس رو چک میکنه و رو کلمه می ایسته مثل دیکشنری نارسیس :
Private Sub sc_wk_Change()
Dim MatchFound As Boolean
Dim Last As Integer, J As Integer
lbl_mozd.Text = ""
lbl_free_mozd.Text = ""
J = 0
MatchFound = False
Do
If InStr(1, List1.ListField(J), txtSearch.Text, 1) > 0 Then
MatchFound = True
List1.ListIndex = J
End If
J = J + 1
Loop Until J > Last Or MatchFound
If Not MatchFound Then
List1.ListIndex = -1
End If
End Sub
حالا بگید مشکل این دو کجاست یا کد هایی شبیه به این ها رو برام بنویسین لازم نیست حتما سورس بذارین __ از کمکی که خواهید کرد نهایت تشکر را دارم
من دارم یک پروژه می نویسم حالا تو یکی از فرم ها من به یک مشکل برخوردم من یک لیست دارم نه dblist و فقط هم listbox لازم دارم حالا من دو تا کد دارم که وقتی اینا رو با هم میذارم error میده
کد اول میاد تمام اطلاعات بانک رو به لیست منتقل میکنه به این صورت :
max = Adodc2.Recordset.RecordCount
Adodc2.Recordset.MoveFirst
List1.Clear
For i = 1 To max
List1.AddItem Adodc2.Recordset!work_na
Adodc2.Recordset.MoveNext
Next i
List1.ListIndex = 0
کد دوم میاد change یک تسکت باکس رو چک میکنه و رو کلمه می ایسته مثل دیکشنری نارسیس :
Private Sub sc_wk_Change()
Dim MatchFound As Boolean
Dim Last As Integer, J As Integer
lbl_mozd.Text = ""
lbl_free_mozd.Text = ""
J = 0
MatchFound = False
Do
If InStr(1, List1.ListField(J), txtSearch.Text, 1) > 0 Then
MatchFound = True
List1.ListIndex = J
End If
J = J + 1
Loop Until J > Last Or MatchFound
If Not MatchFound Then
List1.ListIndex = -1
End If
End Sub
حالا بگید مشکل این دو کجاست یا کد هایی شبیه به این ها رو برام بنویسین لازم نیست حتما سورس بذارین __ از کمکی که خواهید کرد نهایت تشکر را دارم