نمایش آخرین سطر ثبت شده در لیست باکس

**Javid Mokhtari** · 2014/08/30, 09:23

با سلام.

کد PHP:


me.ListBox1.Selected(me.ListBox1.ListCount - 1) = True

**khasteh1** · 2014/08/30, 18:32

ضمن تشکر از شما دوست گرامی؛
با کدی که محبت کردید جواب سوال 1 و 2 را گرفتم.در ارتباط با سوال 3 جنابعالی یا دیگر دوستان نظری ندارند؟

**Javid Mokhtari** · 2014/08/30, 18:53

نوشته اصلی توسط khasteh1

ضمن تشکر از شما دوست گرامی؛
با کدی که محبت کردید جواب سوال 1 و 2 را گرفتم.در ارتباط با سوال 3 جنابعالی یا دیگر دوستان نظری ندارند؟

برای این کار 2 راه دارین:
1-اطلاعات رو که در دیتابیس شیتتون وارد کردین به روش عکس وارد لیست باکس کنین.یعنی از اخرین سطر به اولین سطر
2-هنگام وارد نمودن داده به دیتابیس کدی نوشته شود که داده جدید را به اولین سطر داده ها قدیمی وارد کند سپس وارد لیست باکس شود.

تا ببینیم نظر بقیه دوستان چیه ...

**khasteh1** · 2014/08/30, 21:29

با عرض سلام و وقت وبخیر
لطف کنید؛ کد یا نمونه فایلی قراردهید .پیشاپیش سپاسگزارم

**khasteh1** · 2014/09/03, 10:52

کجایند اساتید اکسل،اساتید بی ادعا

**mokaram** · 2014/09/03, 11:07

نوشته اصلی توسط khasteh1

3-آیا می شود هنگام ثبت اطلاعات ،سطر جدید به جای آخر در اول صفحه درج گردد و در نتیجه در لیست باکس هم چنین نمایش داده شود؟
چشم راه پاسختان هستم

شما می تونید موقع ثبت اطلاعات ردیف بدید و بعد از ثبت بگید که سورت بشه از بزرگ به کوچیک ردیف

**Javid Mokhtari** · 2014/09/03, 16:00

نوشته اصلی توسط jansiz hayat

برای این کار 2 راه دارین:
1-اطلاعات رو که در دیتابیس شیتتون وارد کردین به روش عکس وارد لیست باکس کنین.یعنی از اخرین سطر به اولین سطر
2-هنگام وارد نمودن داده به دیتابیس کدی نوشته شود که داده جدید را به اولین سطر داده ها قدیمی وارد کند سپس وارد لیست باکس شود.

برادر وقت نیست .....

به روش اول :

کد PHP:


ListBox1.Clear
For j = Sheet1.Range("a1000000").End(xlUp).Row To 2 Step -1
    If Cells(j, j - (j - 1)) <> "" Then
    ListBox1.AddItem Cells(j, j - (j - 1))
            For i = 1 To 9
               ListBox1.List(ListBox1.ListCount - 1, i) = Cells(j, i + 1)
            Next i
    End If
Next
ListBox1.Selected(0) = True