帮助文档：自定义录入界面之三
DropDownClosed事件，下面代码可以成功赋值，但是每次都弹出提示框，说下拉窗口中的表是只读的
If e.Selected Then '如果选择了值
Dim tbl As Table = Tables("下拉_Table1")
If tbl.Current IsNot Nothing Then
e.Form.DropDownBox.Value = tbl.Current("商品名称")
Tables("入库明细").Current("规格") = tbl.Current("规格")
Tables("入库明细").Current("单位") = tbl.Current("单位")
If e.Form.DropTable IsNot Nothing Then '如果是通过表下拉的
e.Form.DropTable.FinishEditing()
Else '如果是通过窗口下拉的
e.Form.DropDownBox.WriteValue()
End If
End If
End If
加好友 
发短信
Post By：2017/7/11 18:04:00 [显示全部帖子]
