把主窗口的团体或个人分组下拉窗口KeyPress事件写成：
Dim qsmc As WinForm.ComboBox = Forms("主窗口").Controls("棋赛名称")
Dim di1 As String = qsmc.Value
Dim drp As WinForm.DropDownBox = e.sender
If di1 Is Nothing Then
e.Cancel = True
ElseIf drp.DroppedDown = False '如果下拉窗口没有打开
drp.OpenDropDown() '打开下拉窗口
End If
当棋赛名称为空，团体或个人分组下拉窗口不允许输入字符，结合你上面的Enter代码：
Dim qsmc As WinForm.ComboBox = Forms("主窗口").Controls("棋赛名称")
Dim di1 As String = qsmc.Value
If di1 Is Nothing Then
MessageBox.Show("请选择棋赛名称","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
If e.Form.Controls("棋赛名称").text > "" Then
e.Sender.DropFormName = "窗口所属团体或个人分组目录树"
Else
e.Sender.DropFormName = Nothing
End If
如果棋赛名称为空不显示下拉窗口，完全杜绝人手强行输入基本信息没对应的分组名称。
加好友 
发短信
Post By：2020/8/28 12:14:00 [只看该作者]
此主题相关图片如下：1.png