Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共6 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:[求助]下拉窗口传值问题!

1楼
leoWang 发表于:2023/9/6 13:41:00
目录树的TEXT为地区名字,NAME为地区编码。这个下拉窗口显示值为目录树的TEXT,怎么能目录树NAME,即将“西北”的编码“0104”显示在标签“地区编码”中?图片点击可在新窗口打开查看
2楼
有点蓝 发表于:2023/9/6 13:52:00
http://www.foxtable.com/webhelp/topics/2465.htm

如果除了客户ID列,还要同时从客户表选择其它多列内容输入到订单表,可以将DropDownClosed事件代码改为:

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

3楼
leoWang 发表于:2023/9/6 15:05:00
如何控制这个下拉窗口取值为末级节点?
4楼
有点蓝 发表于:2023/9/6 15:15:00
点击事件里判断一下,如果当前节点没有下级节点就是末级了

比如:
if e.nodex.count = 0 then
msgbox("末级")
else
msgbox("不是末级")
endif
5楼
leoWang 发表于:2023/9/6 15:48:00
如何保证上述下拉窗口关闭时取值为末级节点的值?
6楼
有点蓝 发表于:2023/9/6 15:54:00
下拉窗口关闭时是怎么取值的,参考4楼加判断
共6 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .05469 s, 2 queries.