DataGridView中Combobox的数据类型匹配

DataGridView中Combobox的数据类型匹配

假如Combobox中设置的时候的数据类型时int32，DataGridView显示是匹配的数据是double型的，显示时就会报错。

解决方法：

1。匹配时作判断（MaxID是要匹配的数据，默认是int32）

                If dgvMaster.Rows(0).Cells(0).Value.GetType.Name = "Double" Then
                    dgvMaster.Rows.Add(CType(MaxID, Double), "")
                    dgvMaster.Rows(dgvMaster.Rows.Count - 1).Cells(j).Value = CType(MaxOrder, Double)
                ElseIf dgvMaster.Rows(0).Cells(0).Value.GetType.Name = "Short" Then
                    dgvMaster.Rows.Add(CType(MaxID, Short), "")
                    dgvMaster.Rows(dgvMaster.Rows.Count - 1).Cells(j).Value = CType(MaxOrder, Short)
                Else
                    dgvMaster.Rows.Add(MaxID, "")
                    dgvMaster.Rows(dgvMaster.Rows.Count - 1).Cells(j).Value = MaxOrder
                End If 

 

2。根据要匹配的数据类型进行设置

Call SetGridComboBoxEx(dgv_3, "SELECT CAST(COD AS NUMBER(3,0)) AS COD,NAM FROM MZZT001 WHERE KBN = 'X0162' ORDER BY DSP_SEQ", "COD", "NAM", "方向", "System.Int16")

 

 

dgvContainer ：DataGridView名字

strSQL ：Combobox中设置数据的查询

strValueMember ：sql查询中，最为数据的字段

strDispMember ：sql查询中，最为显示的字段

strColumnName ：DataGridView中，显示为Combobox的列

strType ：要设置的数据类型

Public Shared Function SetGridComboBoxEx(ByVal dgvContainer As Windows.Forms.DataGridView, ByVal strSQL As String, ByVal strValueMember As String, ByVal strDispMember As String, ByVal strColumnName As String, ByVal strType As String) As Boolean
        Dim tblDataSource As DataTable
        Dim dgcmb As New Windows.Forms.DataGridViewComboBoxColumn
        Dim bFlag As Boolean = False
        Try
            '取得列的Combobox对象
            For i As Integer = 0 To dgvContainer.Columns.Count - 1
                If dgvContainer.Columns(i).HeaderText = strColumnName Then
                    dgcmb = dgvContainer.Columns(i)
                    bFlag = True
                    Exit For
                End If
            Next

            If bFlag = False Then
                Return False
            End If

            tblDataSource = clsDBBase.dataTable(strSQL)

            If tblDataSource Is Nothing Then
                tblDataSource = New DataTable
                tblDataSource.Columns.Add(strValueMember, System.Type.GetType(strType))
                tblDataSource.Columns.Add(strDispMember)
            End If
            tblDataSource.Rows.InsertAt(tblDataSource.NewRow(), 0)
            tblDataSource.Rows(0).Item(strValueMember) = 0
            tblDataSource.Rows(0).Item(strDispMember) = DBNull.Value

            '数据绑定
            dgcmb.DisplayMember = strDispMember
            dgcmb.ValueMember = strValueMember
            dgcmb.DataSource = tblDataSource
            Return True
        Catch ex As Exception
            Return False
        End Try
    End Function

 

 

3。CellParsing事件（假设应该是Double型）

Private Sub dgvMaster_CellParsing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellParsingEventArgs) Handles dgvMaster.CellParsing
        Try
            If (e.Value Is Nothing) Or (e.Value Is DBNull.Value) Or (e.Value = "") Then
                    e.Value = Convert.ToDouble("0")
                Else
                    e.Value = Convert.ToDouble(e.Value)
                End If
                e.ParsingApplied = True
            End If
        Catch ex As Exception
             End Try
    End Sub

 

4。DataError事件（适用于原来有此combobox选项，后来被删除了，但是，以前的数据中，combobox可能还有此选项纪录遗留）

Private Sub dgvMaster_CellValidating(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellValidatingEventArgs) Handles dgvMaster.CellValidating
        Dim dgvTem As DataGridView = sender
        Try
            dgvTem.Rows(e.RowIndex).Cells(e.ColumnIndex).ErrorText = ""
        Catch ex As Exception
        End Try
    End Sub

 

Private Sub DataGridView_DataError(ByVal sender As System.Object, _
            ByVal e As System.Windows.Forms.DataGridViewDataErrorEventArgs) Handles dgvMaster.DataError
        Try
            Call DataGridViewComboBoxCellDataErrorHandler(sender, e)
        Catch ex As Exception
        End Try
    End Sub

 

Public Shared Sub DataGridViewComboBoxCellDataErrorHandler(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewDataErrorEventArgs)
        Try
            Dim lDgv As Windows.Forms.DataGridView = sender
            If lDgv.Columns(e.ColumnIndex).CellType.Name = "DataGridViewComboBoxCell" Then
                If lDgv.Rows(e.RowIndex).Cells(e.ColumnIndex).ValueType.Equals(Type.GetType("System.String")) Then
                    If IsNumeric(lDgv.Rows(e.RowIndex).Cells(e.ColumnIndex).Value.ToString) Then
                        lDgv.Rows(e.RowIndex).Cells(e.ColumnIndex).Value = CInt(lDgv.Rows(e.RowIndex).Cells(e.ColumnIndex).Value.ToString)
                    End If
                Else
                    lDgv.Rows(e.RowIndex).Cells(e.ColumnIndex).Value = lDgv.Rows(e.RowIndex).Cells(e.ColumnIndex).Value.ToString
                End If
                lDgv.Rows(e.RowIndex).Cells(e.ColumnIndex).ErrorText = "此项已删除"
            Else
                e.ThrowException = True
            End If
        Catch ex As Exception
        End Try
    End Sub