以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]自定义录入界面之三疑惑  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=121058)
--  作者：找到没重的名
--  发布时间：2018/6/28 14:01:00
--  [求助]自定义录入界面之三疑惑
我是根据这个例子，进行了改动，是在窗口中完成的录入功能。在窗口中，用控件dropdownbox绑定了订单表的“客户姓名”（它的下拉窗口中设定了table，并绑定了客户表），控件textbox绑定了“客户编号”。如果没有下划线这一行代码，我可以用模糊查询通过dropdownbox的下拉窗口得到用户姓名，但为了让textbox显示客户编号，我就加上了有下划线的这行代码。但是问题就来了，textbox是可以正常显示客户编号了，但是控件dropdownbox就会显示空白。百思不得其解，郁闷。请老师指教，谢谢！
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("客户编号")
      
        If e.Form.DropTable IsNot Nothing Then \'如果是通过表下拉的
            e.Form.DropTable.FinishEditing()
        Else \'如果是通过窗口下拉的
            e.Form.DropDownBox.WriteValue()
        End If
    End If
End If
--  作者：有点甜
--  发布时间：2018/6/28 14:23:00
--  
界面3没有textbox控件，做个例子发上来测试。
--  作者：找到没重的名
--  发布时间：2018/6/28 15:15:00
--  
解决了，把划线那一行代码的位置前移一行，就行了。虽然不知道为啥。