Sorgu veya tablodan alınan verileri liste kutularına aktardığımızda bazen sıra numarası verme ihtiyacımız doğar. Bunun için forumda bir çok çözüm var. Bir çözüm de ben ekleyeyim dedim. (Gerçi kayıtlar çoğalınca nasıl etki eder bilemiyorum)
Çözüm Mantığı:
Sorgumuzu veya tablomuzu aktaracağımız bir liste kutusu oluşturuyoruz. Buna "gercekliste" adını veriyoruz.
Sonra bir liste daha oluşturuyoruz. Buna da "gorliste" adını veriyoruz. gorliste'nin Satır Kaynak Türü'nü Değer Listesi olarak belirliyoruz. Kaç sütun istiyorsak ona göre sayısını ve genişliklerini ayarlıyoruz.
Sonra aşağıdaki kodu form_load veya sizin kullanacağınız bir yordama ekliyoruz.
Kod:
Private Sub Form_Load()
Dim sno As Integer
gorliste.RowSource = ""
For sno = 0 To gercekliste.ListCount - 1
gorliste.AddItem sno + 1 & ";" & gercekliste.Column(1, sno)
Next
End Sub
NOT: Sayın yöneticiler konuyu burada açtım. Eğer forum kurallarına aykırı bir durum söz konusu ise özür diliyorum.