以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]帮助文档：自定义录入界面之三  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=103567)
--  作者：minxizai
--  发布时间：2017/7/11 18:04:00
--  [求助]帮助文档：自定义录入界面之三
帮助文档：自定义录入界面之三
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
--  作者：有点蓝
--  发布时间：2017/7/11 20:52:00
--  
测试没有问题。上传实例说明

规格和单位是不是表达式列来的