Jag har försökt att få två kolumner i en DataGrid att innehålla Comboboxar.Combobox i en cell från DataGrid?
När jag klickar på en cell anropas den här rutinen:
<code>
Private Sub DataGrid1_ButtonClick(ByVal ColIndex As Integer)
If ColIndex = 0 Or ColIndex = 1 Then
With Combo1
.Left = DataGrid1.Left + DataGrid1.Columns(ColIndex).Left
.Top = DataGrid1.Top + DataGrid1.RowTop(DataGrid1.Row)
.Width = DataGrid1.Columns.Item(ColIndex).Width
.Visible = True
.ZOrder 0
.SetFocus
End With
End If
SendKeys "%{DOWN}"
End Sub
</code>
Jag har alltså en vanlig ComboBox vid sidan av DataGriden som är osynlig. Den flyttar jag sen till aktuell cell och visar. Det fungerar men finns det verkligen ingen mer sofistikerad metod att göra detta på? Det känns inte rätt på nåt sätt...
/Roland