آژانس هواپیماییexchanging

مشکل این کد چیه؟

شروع موضوع توسط Yasser80 ‏22 آپریل 2010 در انجمن Visual Basic 6

  1. Yasser80

    Yasser80 کاربر تازه وارد

    تاریخ عضویت:
    ‏30 مارس 2010
    نوشته ها:
    10
    تشکر شده:
    0
    یه listbox داریم به اسم LstCode و یه textbox به اسم TxtDes. میخوایم وقتی رو لیست کلیک میکنیم اطلاعات متناظرش تو textbox که تو فیلد Descript قرار داره نشون داده بشه. ولی کار نمیکنه:( کجاش ایراد داره؟ recordcount هم همیشه صفره. خودم فکر میکنم قسمت (Trim(LstCode.Text باید اشتباه باشه ولی درستشو نمیدونم. مرسی از راهنماییتون.


    کد:
    Private Sub LstCode_Click()
    
        Adodc1.RecordSource = "SELECT * FROM Charge WHERE Code=' " & Trim(LstCode.Text) & " '"
        Adodc1.Refresh
        If Adodc1.Recordset.EOF = False And Adodc1.Recordset.BOF = False Then
            TxtDes = Adodc1.Recordset!Descript
        Else 'If Not Adodc1.Recordset.EOF = False And Adodc1.Recordset.BOF = False Then
            MsgBox ...
            CmdAddCost.SetFocus
        End If
    End Sub
     
  2. h4sh3m

    h4sh3m Registered User

    تاریخ عضویت:
    ‏12 سپتامبر 2010
    نوشته ها:
    61
    تشکر شده:
    1
    محل سکونت:
    0441
    اونو با اين عوض كن اگه جواب نداد برنامه رو بفرست تا برطرفش كنم.


    rtrim(ltrim(lstcode.tec))​