此主题相关图片如下：7.png
谢谢，大问题解决了，因为我这个下拉选择框是参照帮助文件自定义窗口录入3仿做的，但是现在又冒出来了一个小的问题，我选择2个复选框，它除了带出打勾的两个复选框商品编码，还会带出鼠标焦点选择的那一行（有背景颜色那一行）
起初我想如果删除下面的代码，就可以解决这一行，后来我删除后，竟然返回了空白行，如是我在你给我指点的代码后加上了附件的代码，结果代码提示错误，不知道怎么操作，请老师指点。
【If
e.Selected Then
'如果选择了值
Dim tbl As
Table = Tables("窗口1_Table1")
If tbl.Current
IsNot
Nothing
Then
e.Form.DropDownBox.Value = tbl.Current("客户ID")
Tables("订单").Current("其它列1") = tbl.Current("其它列1")
Tables("订单").Current("其它列2") = tbl.Current("其它列2")
Tables("订单").Current("其它列3") = tbl.Current("其它列3")
If e.Form.DropTable
IsNot
Nothing
Then
'如果是通过表下拉的
e.Form.DropTable.FinishEditing()
Else
'如果是通过窗口下拉的
e.Form.DropDownBox.WriteValue()
End
If
End
If
End
If】
[此贴子已经被作者于2017/1/6 17:12:27编辑过]
加好友 
发短信
Post By：2017/1/6 10:09:00 [只看该作者]
此主题相关图片如下：5.jpg