- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- DropDownBox控件取值 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=160104)
-- 发布时间：2021/1/20 15:27:00
-- DropDownBox控件取值
客户端调用服务端接口返回数据 想在文本框显示name值， 在旁边lable标签隐藏显示ID值
现在name值可以取到，ID取不到，提示没有此控件
我在下拉窗体的dropsownclosed事件中给ID 赋值了
If e.Selected Then \'如果选择了值
Dim tbl As Table = Tables("客户列表下拉_Table1")
If tbl.Current IsNot Nothing Then
e.Form.DropDownBox.Value = tbl.Current("客户名称")
e.Form.Controls("Label5").Value=tbl.Current("客户ID")
End If
If e.Form.DropTable IsNot Nothing Then \'如果是通过表下拉的
e.Form.DropTable.FinishEditing()
Else \'如果是通过窗口下拉的
e.Form.DropDownBox.WriteValue()
End If
End If
-- 发布时间：2021/1/20 15:34:00
--
未选择数据之前
选中后就报错找不到存ID的控件
-- 发布时间：2021/1/20 15:35:00
--
Forms(“控件所在的窗口名称”).Controls("Label5").text=tbl.Current("客户ID")
-- 发布时间：2021/1/20 15:41:00
--
好的， 可以拉， 谢谢 有点蓝老师