Foxtable(狐表) → 用户栏目 → 专家坐堂 → 窗口录入模式下的下拉窗口问题


  共有4492人关注过本帖树形打印复制链接

主题：窗口录入模式下的下拉窗口问题
帅哥哟，离线，有人找我吗？
643561836
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：171 积分：1392 威望：0 精华：0 注册：2013/2/1 10:00:00 		窗口录入模式下的下拉窗口问题  发帖心情 Post By：2013/11/10 14:38:00 [显示全部帖子]

窗口录入模式下的下拉窗口问题

 

在表格输入产品型号时下拉窗口录入正常，同时可录入对应的其它相关列内容

 

1.切换到窗口录入时就不可以了，说是

DropDownClosed出问题

 

2.在下拉窗口新增产品也出现问题

 

请多多帮助指出问题所在，谢谢

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:窗口录入时的下拉窗口问题.table
 回到顶部
帅哥哟，离线，有人找我吗？
643561836
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：171 积分：1392 威望：0 精华：0 注册：2013/2/1 10:00:00 		  发帖心情 Post By：2013/11/10 15:03:00 [显示全部帖子]

就是报价产品表中 的产品号

 回到顶部
帅哥哟，离线，有人找我吗？
643561836
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：171 积分：1392 威望：0 精华：0 注册：2013/2/1 10:00:00 		  发帖心情 Post By：2013/11/10 21:30:00 [显示全部帖子]

我下载下来也可以啊
密码888
 回到顶部
帅哥哟，离线，有人找我吗？
643561836
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：171 积分：1392 威望：0 精华：0 注册：2013/2/1 10:00:00 		  发帖心情 Post By：2013/11/10 22:20:00 [显示全部帖子]

内部数据源啊兄弟！

 回到顶部
帅哥哟，离线，有人找我吗？
643561836
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：171 积分：1392 威望：0 精华：0 注册：2013/2/1 10:00:00 		  发帖心情 Post By：2013/11/10 22:59:00 [显示全部帖子]

If e.Selected Then '如果选择了值
    Dim tbl As Table = Tables("产品表产品型号_Table1")
    If tbl.Current IsNot Nothing Then
        e.Form.DropDownBox.Value = tbl.Current("型号")
        Dim r As Row = e.Form.DropTable.Current
        r("名称") = tbl.Current("名称")
        r("光源") = tbl.Current("光源")
        r("功率") = tbl.Current("功率")
        r("角度") = tbl.Current("角度")
        r("色温") = tbl.Current("色温")
        r("配置说明") = tbl.Current("配置说明")
        r("产品图") = tbl.Current("产品图")
        r("单价") = tbl.Current("经价")
        r("业主价") = tbl.Current("业主价")
        r("公共附件") = tbl.Current("公共附件")
        r("型号") = tbl.Current("型号")
    End If
End If



原代码中已有了
 回到顶部
帅哥哟，离线，有人找我吗？
643561836
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：171 积分：1392 威望：0 精华：0 注册：2013/2/1 10:00:00 		  发帖心情 Post By：2013/11/11 10:05:00 [显示全部帖子]

谢谢bin,这下我看明白了！还有另一个问题，就是下拉窗口没有这个产品时，我想新增一个产品同时录入到这个下拉框中，


e.Form.DropDownBox.CloseDropdown(False) 
Dim r As Row = Tables("产品表").AddNew()
Forms("产品管理").Open()
r.Save()
e.Form.DropDownBox.Value = r("型号")  ’【上传实例写错成产品型号】

现在是可以新增产品，但不能同时录入到焦点框中
 回到顶部
帅哥哟，离线，有人找我吗？
643561836
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：171 积分：1392 威望：0 精华：0 注册：2013/2/1 10:00:00 		  发帖心情 Post By：2013/11/11 11:33:00 [显示全部帖子]

谢谢 九尾狐！

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 6 次数据查询