Dim col
 
    Set col = DataGrid1.Columns(3)
    col.Items.Clear
    col.Items.Add "Item 1"
    col.Items.Add "Item 2"
    col.Items.Add "Item 3"
    'etc...

Hi Ryan,

With above code, it actually fills up the entire column for all the rows in the data grid with same combo box data. What if i want to populate combo box row by row with different items. How to access a inidividual combobox cell and add items to it?

Please help me.

Regards,

Izzy

Izzy:

  The key is that you do this as each row is selected, this allows you to figure out which row you are on and then decide what values to add to the Combo Box.

Hi Izzy,

What Raul mentioned is spot on. You can't have different rows' drop down be different exactly since the drop down is part of the column. So instead, you do this as each row is selected. Whenever the user selects a row, your code populates the column drop down base on the current selected row. If the user then selects a different row, the code clears the drop down and does it all over again based on that row. Make sense?

Hi Raul & Ryan,

Thanks for the replies. Yes i do understand what you mean. I'm a .NET person and not quite clear how to do this in VB6 for saleslogix development. Can you provide me a sample code to select inidividual cell on a datagrid and add items to combo box? I assume i might have to put the code in some sort of a row select event. So which event should be the best event to put this in?

Ex: Let's say I have data grid and I want put 5 combo box items to 3rd row, 3rd column. Can you provide me a sample code for this?

Many thanks for helping me out.

Who's talking .Net and\or VB6? This has NOTHING to do with either.......

Hi RJ,

Can you provide me a sample code to select inidividual cell on a datagrid and add items to combo box? I assume i might have to put the code in some sort of a row select event. So which event should be the best event to put this in?

I'm currently trying to do this in VB6

Here is an example of how i dynmically load a combo box using a sql query.  I do this on the Data Grids OnEditing event.

Function DataGrid_Editing(Sender, PrimaryKeyValue, FieldName, Value)

If  FieldName  = "ComboBox" Then

Dim sql, rs

Set rs = objSlxDb.GetNewRecordSet

sql = "Select someColumn " & _

                          "From SomeTable  " & _

                        "Where SomeCondition "

rs.Open sql, objSlxDb.Connection

DataGrid.Columns.Item("ComboBox").Items.Clear

While Not rs.EOF

DataGrid.Columns.Item("ComboBox").Items.Add rs.Fields("someColumn").Value

rs.MoveNext

Wend

Set rs = Nothing

End IF

End Function 

Hope this helps. 

Vaughn

HI Vaughn,

Thanks for the reply. But that still doesn't solve my problem isn't it. When you say DataGrid.Columns.Item("ComboBox").Items.Add it ads the value to all the columns. What if i want to add the value only to the column in 3rd row, rather than adding values to all the columns? This is what i want to do, and i didn't get any answer so far for this.

Regards,

Izzy

This is true that all the columns will have the same values, but if you load those values in the OnEditing event based on some value specific to that row, then it will be dynamic.  Here is another example i just did today:

    If UCase(FieldName) = "GL_ACCOUNT" and dgPoInvoiceLines.GetCurrentField("JOB_SOLD") = "F" Then

        dgPoInvoiceLines.Columns.Item("GL_ACCOUNT").Items.Clear

        dgPoInvoiceLines.Columns.Item("GL_ACCOUNT_KEY").Items.Clear

        If glRs.RecordCount > 0 Then

            glRs.MoveFirst

            While Not glRs.EOF

                If UCase(glRs.Fields("Description").Value) <> "WORK IN PROCESS" Then

                    dgPoInvoiceLines.Columns.Item("GL_ACCOUNT").Items.Add glRs.Fields("GlAcctNo").Value

                    dgPoInvoiceLines.Columns.Item("GL_ACCOUNT_KEY").Items.Add glRs.Fields("GLAcctKey").Value

                End If

                glRs.MoveNext

            Wend

        End If

    ElseIf UCase(FieldName) = "GL_ACCOUNT" and dgPoInvoiceLines.GetCurrentField("JOB_SOLD") = "T" Then

        dgPoInvoiceLines.Columns.Item("GL_ACCOUNT").Items.Clear

        dgPoInvoiceLines.Columns.Item("GL_ACCOUNT_KEY").Items.Clear

        If glRs.RecordCount > 0 Then

            glRs.MoveFirst

            While Not glRs.EOF

                If UCase(glRs.Fields("Description").Value) = "WORK IN PROCESS" Then

                    dgPoInvoiceLines.Columns.Item("GL_ACCOUNT").Items.Add glRs.Fields("GlAcctNo").Value

                    dgPoInvoiceLines.Columns.Item("GL_ACCOUNT_KEY").Items.Add glRs.Fields("GLAcctKey").Value

                    glRs.MoveLast

                End If

                glRs.MoveNext

            Wend

        End If

    End If

The column i care about loading data for is GL_ACCOUNT.  If the column JOB_SOLD is 'T' is load one set of values, else i load a different set.  

Neat, I've never attempted that. in general I don't use inline editable grids anyway. Thanks for posting!