16,554
社区成员
发帖
与我相关
我的任务
分享
Private Sub dgv_EditingControlShowing(sender As Object, e As DataGridViewEditingControlShowingEventArgs) Handles dgv.EditingControlShowing
Dim box As TextBox = CType(e.Control, TextBox)
AddHandler box.TextChanged, AddressOf box_TextChanged
End Sub
Private Sub box_TextChanged(sender As Object, e As EventArgs)
Dim t As String = sender.text
If Regex.IsMatch(t, "^\d{3}$") Then
Select Case t
Case "001"
sender.text = "001 数学"
Case "002"
sender.text = "002 语文"
Case "003"
sender.text = "003 英语"
End Select
End If
End Sub