Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim col(3) As DataGridViewTextBoxColumn
For i = 0 To 3
col(i) = New DataGridViewTextBoxColumn
col(i).Name = "col" & i.ToString
Next
dgv.Columns.AddRange(col(0), col(1), col(2), col(3))
dgv.Rows.Add(20)
End Sub
Private Sub dgv_CellEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv.CellEnter
Dim r As Integer = e.RowIndex
Dim c As Integer = e.ColumnIndex
Dim v As String = dgv.Rows(r).Cells(c).Value
If c = 3 Then
dgv.Rows(r).Cells(c) = CreatComCell(v) '这里报错 "操作无效,原因是它导致对 SetCurrentCellAddressCore 函数的可重入调用"
End If
End Sub
Private Function CreatComCell(ByVal v As String) As DataGridViewComboBoxCell
Dim cell As New DataGridViewComboBoxCell
cell.Items.AddRange("无权", "一级", "二级", "三级")
cell.Value = v
cell.DropDownWidth = 80
Return cell
End Function
End Class
这个错误会在行和列为同一值时出现,例如当C=3时,若行(R)也为3时,就会出错,若将C改为2时,当行(R)也为2时,就会报错,以此类推,否则就不会出现问题。求大神帮忙看看。
自己解决了 虽然不知道原因。
将CellEnter事件中的代码放到CellBeginEdit事件中就好了。。。