Foxtable(狐表)用户栏目专家坐堂 → 关于帮助中的【自定义录入界面之三】出错


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

主题:关于帮助中的【自定义录入界面之三】出错

帅哥哟,离线,有人找我吗?
643561836
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:171 积分:1392 威望:0 精华:0 注册:2013/2/1 10:00:00
关于帮助中的【自定义录入界面之三】出错  发帖心情 Post By:2013/11/8 10:50:00 [显示全部帖子]

按照 自定义录入界面之三 与自定义录入界面之四 操作一直正常使用的,可今天突然跳出 出错

图片点击可在新窗口打开查看此主题相关图片如下:01.png
图片点击可在新窗口打开查看
之后无法在下拉输入框中输入内容进行模糊筛选,选定产品型号

图片点击可在新窗口打开查看此主题相关图片如下:02.png
图片点击可在新窗口打开查看



 回到顶部
帅哥哟,离线,有人找我吗?
643561836
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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("名称")
        Tables("项目跟踪表.报价产品").Current("光源") = tbl.Current("光源")
        Tables("项目跟踪表.报价产品").Current("功率") = tbl.Current("功率")
        Tables("项目跟踪表.报价产品").Current("角度") = tbl.Current("角度")
        Tables("项目跟踪表.报价产品").Current("色温") = tbl.Current("色温")
        Tables("项目跟踪表.报价产品").Current("配置说明") = tbl.Current("配置说明")
        Tables("项目跟踪表.报价产品").Current("产品图") = tbl.Current("产品图")
        Tables("项目跟踪表.报价产品").Current("单价") = tbl.Current("经价")
        Tables("项目跟踪表.报价产品").Current("业主价") = tbl.Current("业主价")
        Tables("项目跟踪表.报价产品").Current("公共附件") = tbl.Current("公共附件")
    End If
End If

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


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

这是有问题的原件,在报价产品表中的型号号,无法再交修改,如现在是512.003   无法输入512.001

有时打开项目第一改可以,再改一次就不行了!
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:产品型号问题.table

[此贴子已经被作者于2013-11-8 13:43:44编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
643561836
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

还是不行啊,问题是无法输入筛选内容,进行模糊筛选自动录入数据,例如我现在的型号是512.001,双击删除最后的1就动不了,又或者再次输入512.003 一输入5之后又动不了!重新打开项目第一次修改型号是可以的,如何重复第2或第3次就不行了!
谢谢!

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


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

谢谢狐狸爸爸!这个可不可以再优化呢,就是可以双击后可以一个个的删除字符,而不是双击后按Backspace退格键后512.001全都给删除了,同时现在是512.001,如果我录入512.01后,应该提示无此型号,但现在我录入512.01这个错识型号后,其相关的数据还是原来的512.001

 回到顶部
帅哥哟,离线,有人找我吗?
643561836
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

好的,谢谢!我多试两次搞不定再找狐狸爸爸帮助!图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
643561836
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

可能我没表达好1.   双击并没有选中内容,而是将光标方到最后了,一按退格键就是删除所有,需不是一个一个数字的删除。因为我的客户表也用这种下拉方式。如果要对客户名称作修正时就一下子全删除了
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
643561836
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

好的,期待!


 回到顶部
帅哥哟,离线,有人找我吗?
643561836
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

还是用这个实例,在项目跟踪表中的客户名称,业主名称,设计公司都是用下拉窗口的,我现在是建立了三个对应的客户名称,帮助中说到的DropTable如何写,我在窗口模式下可以共用同一个下拉窗口呢!

 回到顶部
帅哥哟,离线,有人找我吗?
643561836
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

Tables("项目跟踪表").Cols("客户名称").DropForm = "客户信息表客户名称"
Tables("项目跟踪表").Cols("设计名称").DropForm = "客户信息表客户名称"
Tables("项目跟踪表").Cols("业主名称").DropForm = "客户信息表客户名称"
Tables("项目跟踪表").Cols("客户联系人").DropForm = "客户联系人"
Tables("项目跟踪表").Cols("设计联系人").DropForm = "设计联系人"
Tables("项目跟踪表").Cols("业主联系人").DropForm = "业主联系人"



联系人也是共用一个下拉“联系人”窗口

 回到顶部
总数 16 1 2 下一页