以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  下拉窗字段不能填充  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=175064)

--  作者:段虎成
--  发布时间:2022/2/18 10:20:00
--  下拉窗字段不能填充

老师您好,我做了一个下拉窗口,下拉窗口其中一个字段不能填充,详细请见附件,请老师帮忙看一下哪里有问题,谢谢

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:下拉窗字段填充异常.rar


--  作者:有点蓝
--  发布时间:2022/2/18 10:33:00
--  
msgbox(tbl.Current.Hierarchy)
  If tbl.Current.Hierarchy = 4 Then \'有5个点(第一个节点为0)
                e.Form.DropDownBox.Value = tbl.Current.Parent("银行信息") \'     此处代码鼠标双击选择录入的时候,本节点不能赋值,其他节点都可以           
Tables("收款单").Current("开户行及账号") = tbl.Current("银行信息") 
                Tables("收款单").Current("户主") = tbl.Current.Parent.Parent("银行信息")
                Tables("收款单").Current("账户性质") = tbl.Current.Parent.Parent.Parent("银行信息")
                Tables("收款单").Current("单位") = tbl.Current.Parent.Parent.Parent.Parent("银行信息")
                Tables("收款单").Current("单位编码") = tbl.Current.Parent.Parent.Parent.Parent("单位编码")
                Tables("收款单").Current("银行编号") = tbl.Current("银行编号")
 elseIf tbl.Current.Hierarchy = 3 Then \'有4个点(第一个节点为0)
                e.Form.DropDownBox.Value = tbl.Current.Parent("银行信息") 


--  作者:段虎成
--  发布时间:2022/2/18 10:35:00
--  
收到,谢谢老师!
--  作者:段虎成
--  发布时间:2022/2/18 10:56:00
--  
老师您好,测试结果请见附件,谢谢。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:下拉窗字段填充异常v2.rar


--  作者:有点蓝
--  发布时间:2022/2/18 11:03:00
--  
请上传实例测试
--  作者:段虎成
--  发布时间:2022/2/18 11:18:00
--  
老师,我能不能私下发给您?
--  作者:有点蓝
--  发布时间:2022/2/18 11:23:00
--  
新建项目做个同样的例子发上来
--  作者:段虎成
--  发布时间:2022/2/18 17:31:00
--  
上传上了老师,请帮忙,谢谢
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:下拉窗口_202202181729.zip


--  作者:段虎成
--  发布时间:2022/2/18 20:35:00
--  
老师已经上传了,在么老师?
--  作者:有点蓝
--  发布时间:2022/2/19 9:52:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:下拉窗口.zip