16,717
社区成员
发帖
与我相关
我的任务
分享
'* 展开Combobox列时
Private Sub MyBase_EditingControlShowing(ByVal sender As Object, ByVal e As DataGridViewEditingControlShowingEventArgs) Handles Me.EditingControlShowing
If InStr(e.Control.ToString, "DataGridViewComboBoxEditingControl", CompareMethod.Text) > 0 Then
Dim DgComboBox As ComboBox = CType(e.Control, ComboBox)
AddHandler DgComboBox.SelectionChangeCommitted, AddressOf ComboBox_SelectedIndexChanged
End If
End Sub
'* 选择列中的Combobox时写入值:
Private Sub ComboBox_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs)
Dim DgComboBox As ComboBox = CType(sender, ComboBox)
'写入代码
End Sub