metatak

selam

datagrid1 de veriler giriyorum.
fakat sütuna combo butonu eklenmesine rağmen(properties'den) nasıl çalıştıtılacağını başaramadım.

Örn: fatura düzenlenen bir datagridde "malzemeadi" sütununda, malzeme isimlerini her defasında tek tek yazmak yerine combobox içinde malzemeleri görüp oradan seçim yapmak istyorum. dediğim gibi sütuna buton eklenebiliyor. ama bu butona nasıl combo görevi yaptıracağım?
yardımlarınıza ihtiyacım var. şimdiden sağolun.

__________________
" ALLAH'A ULAŞMAYI DİLEMEK " - OLMAZSA, OLMAZ -
VB6.0

metatak

arkadaşlar yardım edebilecek bir kardeş yokmu.?

__________________
" ALLAH'A ULAŞMAYI DİLEMEK " - OLMAZSA, OLMAZ -
VB6.0

metatak

Ben sorumun cevabını buldum. Belki başkaları da faydalanır diye yazayım dedim.

öncelikle formumuza bir datalist1 ekliyoruz.
ve datagrid1'in buttonclick olayına aşağıdaki kodu yazıyoruz.


Private Sub DG1_ButtonClick(ByVal Colindex As Integer)

With Adodc2 ' önce ado nesnemize veritabanını gösterip çalışır hale getiriyoruz.
.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\DB1.mdb"
.RecordSource = "select distinct Alan1 from Tablo where Alan1<> 'is not null' order by Alan1"
.Refresh
End With

With DataList1 'şimdide datalist1 imizin datasource'ünü set ediyoruz ve de devamını
Set .DataSource = Adodc2
Set .RowSource = Adodc2
.DataField = "malno"
.BoundColumn = "malno"
.ListField = "malno"
End With

With DataGrid1
If Colindex = 0 Then ' Eğer datagridin ilk sütununa tıkladığımız da listemiz açılsın istiyosak
DataList1.Top = .Top + .RowTop(.Row) + .RowHeight 'listemizin tepe noktasını hücreyle aynı yap
DataList1.Left = .Left + .Columns(Colindex).Left 'listemizin solkenar hizasını hücrenin solkeneri ile aynı yap.
DataList1.Width = .Columns(Colindex).Width 'listemizin genişliğini hücre genişliği ile eşitle
DataList1.Height = 800 'listenin yüksekliğini ben 800 yaptım siz ne kadar görmek isterseniz öyle ayarlayın.
DataList1.Visible = True ' listemiz göründü

If DataList1.Visible Then
DataList1.Text = .Text
DataList1.ZOrder ' göründüğünde üste olsun


End If
End If
End With
End Sub

Tabii ki, DataList1 formumuz çalıştığında visible=false olmalı
ve

Private Sub DataList1_Click()
DataGrid1.Text = DataList1.Text
DataList1.Visible = False
End Sub

Private Sub DataList1_LostFocus()
datalist1.visible = False
End Sub

Dahada geliştirmesi size kalmış.

__________________
" ALLAH'A ULAŞMAYI DİLEMEK " - OLMAZSA, OLMAZ -
VB6.0