主题：[求助]自定义录入界面

老师好，仿照例子做得自定义录入界面，可以从“客户ID”和“货主名称”两列选择，下拉窗口做了RadioButton选项可以从两个表取值。

实际在新增的时候，有下拉窗口的“客户ID”和“货主名称”经常有一列赋值为空（很少也能两列赋值赋值成功），其他列赋值都正常，请老师指教！

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:自定义录入界面.rar

If e.Selected Then    '  Row IsNot Nothing Then
    Dim wbl As WinForm.Table = e.Form.Controls("Table1")
    Dim tbl As Table = wbl.Table
    Dim cr As Row = tbl.Current
    Dim t As Table = e.form.DropTable
    Dim r As Row = t.Current
    r("客户ID") =  cr("客户ID")
    r("货主名称") = cr("联系人")
    r("货主地址") = cr("地址")
    r("货主国家") = "中国"
    If e.Form.DropCol.name = "客户id" Then
        e.Form.DropDownBox.Value = cr("客户id")
    Else
        e.Form.DropDownBox.Value = cr("联系人")
    End If
End If

可以了，有点甜老师，谢谢！在我自己的系统里再调一下看。

有点甜老师，还是上面的例子，Validating事件代码该怎么写，在离开单元格的时候关闭下拉窗口。一旦选择了单选框，就会报错如下：

 

此主题相关图片如下：qq截图2.png

请上传出错的项目测试。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:录入界面.rar

选择下拉框中的单选框，就会报错。不加Validating事件，有时离开下拉窗口不会关闭。

有点甜老师，已经上传了。

不能加Validating事件代码。

 

请具体说明你要做什么，怎么操作，要什么效果？

在离开单元格的时候自动关闭下拉窗口，即使在下拉窗口中没有选择也要关闭。如图，无选择的情况下焦点单元格已经移到“到货日期”列还没有关闭下拉窗口。

 

此主题相关图片如下：qq截图3.png

删除 DropDownOpened 事件代码

 

e.Form.DropDownBox.Select() '将输入焦点返回下拉列表框