Добавление элементов в DataGridViewComboBoxCell в vb.net - PullRequest
Новая
       24

Добавление элементов в DataGridViewComboBoxCell в vb.net

0 голосов
/ 04 марта 2019

Я использую приведенный ниже код с объектом интерфейса COM. 

Public Shared Sub ExportPa(ByVal mdl As IScrModel, ByVal dgv As DataGridView)
    Try
        dgv.Rows.Clear()
        If mdl.findElement(My.Settings.str_elem__subvar_grpname_pa, False) IsNot Nothing Then
            Dim grpList As IScrSubVarGroup = CType(mdl.findElement(My.Settings.str_elem__subvar_grpname_pa, False), IScrSubVarGroup)
            For i As Integer = 0 To grpList.getSubvarList(True).count - 1
                Dim obj As IScrSubVar = CType(grpList.getSubvarList(True).item(i), IScrSubVar)
                Dim countRow As Integer = dgv.RowCount

                If obj.intent.val = IntentStatusCBO() Then
                    Select Case obj.get_discr_str.Length
                        Case Is > 1
                            dgv.Rows.Add(countRow, obj.fullName.Substring(My.Settings.str_elem__subvar_grpname_pa.Length + 1), "discr")
                            Dim cbCell As New DataGridViewComboBoxCell
                            cbCell = CType(dgv.Rows(countRow).Cells(3), DataGridViewComboBoxCell)
                            cbCell.Items.Clear()
                            For iIndex = 0 To UBound(obj.get_discr_desc())
                                cbCell.Items.Add(obj.get_discr_desc().GetValue(iIndex))
                                cbCell.Value = obj.discr_desc(Array.IndexOf(obj.get_discr_str(), obj.str.src)).src
                            Next
                        Case Else
                            dgv.Rows.Add(countRow, obj.fullName.Substring(My.Settings.str_elem__subvar_grpname_pa.Length + 1), "std")
                    End Select
                End If
            Next
        End If
    Catch ex As Exception
        MsgBox(ex.Message)
    End Try
End Sub

В следующем коде я хотел бы добавить полученный массив из объекта "obj.get_discr_desc ()" в мой comboboxcell.Массив каждого объекта имеет разные массивы, поэтому я должен добавить ячейку за ячейкой.Код работает хорошо, но я не знаю, это правильный путь? 

Dim cbCell As New DataGridViewComboBoxCell
cbCell = CType(dgv.Rows(countRow).Cells(3), DataGridViewComboBoxCell)
cbCell.Items.Clear()
For iIndex = 0 To UBound(obj.get_discr_desc())
    cbCell.Items.Add(obj.get_discr_desc().GetValue(iIndex))
    cbCell.Value = obj.discr_desc(Array.IndexOf(obj.get_discr_str(), obj.str.src)).src
Next
...