主题：不允许输入中文

怎么在代码里设置窗口表（sqltable表）中列，不允许输入中文

 你在ValidateEdit事件处理

 

Dim str As String = e.text
Dim reg As new System.Text.RegularExpressions.Regex("[\u4e00-\u9fa5]+")
If reg.Ismatch(str) Then
    msgbox("有中文")
    e.cancel = True
End If

或者用代码设置掩码

可以像设置列属性那样，直接关闭中文输入法吗?

你可以用代码切换输入法

 

For Each lang As Object In Windows.Forms.InputLanguage.InstalledInputLanguages
    output.show(lang.LayoutName)
    If lang.LayoutName Like "*搜狗拼音输入法*" Then
        Windows.Forms.InputLanguage.CurrentInputLanguage = lang
        Exit For
    End If
Next

msgbox("切换到搜狗输入法成功")

谢谢老师