'在某列输入内容时自动打开下拉窗口,不管是在表中还是在记录窗口中
If e.Col.Name = "企业名称" Then
If e.RecordGrid Is Nothing Then '如果是在表中输入数据
If e.Col.DroppedDown = False Then
e.Col.OpenDropDown()
End If
Else '如果是在记录窗口输入数据
If e.RecordGrid.DroppedDown = False Then
e.RecordGrid.OpenDropDown()
End If
End If
End If
If e.Col.Name = "第二列" Then
If e.RecordGrid Is Nothing Then '如果是在表中输入数据
If e.Col.DroppedDown = False Then
e.Col.OpenDropDown()
End If
Else '如果是在记录窗口输入数据
If e.RecordGrid.DroppedDown = False Then
e.RecordGrid.OpenDropDown()
End If
End If
End If
If e.Col.Name = "第三列" Then
If e.RecordGrid Is Nothing Then '如果是在表中输入数据
If e.Col.DroppedDown = False Then
e.Col.OpenDropDown()
End If
Else '如果是在记录窗口输入数据
If e.RecordGrid.DroppedDown = False Then
e.RecordGrid.OpenDropDown()
End If
End If
End If