- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]自定义录入界面 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=120883)
-- 发布时间：2018/6/25 18:01:00
-- [求助]自定义录入界面
老师好，仿照例子做得自定义录入界面，可以从“客户ID”和“货主名称”两列选择，下拉窗口做了RadioButton选项可以从两个表取值。
实际在新增的时候，有下拉窗口的“客户ID”和“货主名称”经常有一列赋值为空（很少也能两列赋值赋值成功），其他列赋值都正常，请老师指教！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:自定义录入界面.rar |
-- 发布时间：2018/6/25 18:16:00
--
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
-- 发布时间：2018/6/25 18:18:00
--
可以了，有点甜老师，谢谢！在我自己的系统里再调一下看。
-- 发布时间：2018/6/26 8:14:00
-- 关闭下拉窗口
有点甜老师，还是上面的例子，Validating事件代码该怎么写，在离开单元格的时候关闭下拉窗口。一旦选择了单选框，就会报错如下：
此主题相关图片如下：qq截图2.png
-- 发布时间：2018/6/26 8:49:00
--
请上传出错的项目测试。
-- 发布时间：2018/6/26 8:59:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:录入界面.rar |
选择下拉框中的单选框，就会报错。不加Validating事件，有时离开下拉窗口不会关闭。
-- 发布时间：2018/6/26 9:49:00
-- 回复：（有点甜）请上传出错的项目测试。
有点甜老师，已经上传了。
-- 发布时间：2018/6/26 10:04:00
--
不能加Validating事件代码。
请具体说明你要做什么，怎么操作，要什么效果？
-- 发布时间：2018/6/26 10:25:00
--
在离开单元格的时候自动关闭下拉窗口，即使在下拉窗口中没有选择也要关闭。如图，无选择的情况下焦点单元格已经移到“到货日期”列还没有关闭下拉窗口。
此主题相关图片如下：qq截图3.png
-- 发布时间：2018/6/26 10:32:00
--
删除 DropDownOpened 事件代码
e.Form.DropDownBox.Select() \'将输入焦点返回下拉列表框