- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 关于帮助中的【自定义录入界面之三】出错 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=42307)
-- 发布时间：2013/11/8 10:50:00
-- 关于帮助中的【自定义录入界面之三】出错
按照 自定义录入界面之三 与自定义录入界面之四 操作一直正常使用的，可今天突然跳出 出错
此主题相关图片如下：01.png
之后无法在下拉输入框中输入内容进行模糊筛选，选定产品型号
此主题相关图片如下：02.png
-- 发布时间：2013/11/8 10:52:00
--
这个需要检查你DropdownClose事件的代码才能找到问题.
你自己先检查调试一下是否哪里引用了空值, 通常这类型问题上个例子才好解决.
-- 发布时间：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
-- 发布时间：2013/11/8 11:44:00
--
也许 Tables("项目跟踪表.报价产品").Current 这个当前行为空
-- 发布时间：2013/11/8 13:42:00
--
这是有问题的原件，在报价产品表中的型号号，无法再交修改，如现在是512.003 无法输入512.001
有时打开项目第一改可以，再改一次就不行了！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:产品型号问题.table |
[此贴子已经被作者于2013-11-8 13:43:44编辑过]
-- 发布时间：2013/11/8 14:22:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目81.rar |
-- 发布时间：2013/11/8 14:41:00
--
还是不行啊，问题是无法输入筛选内容，进行模糊筛选自动录入数据，例如我现在的型号是512.001，双击删除最后的1就动不了，又或者再次输入512.003 一输入5之后又动不了！重新打开项目第一次修改型号是可以的，如何重复第2或第3次就不行了！
谢谢！
-- 发布时间：2013/11/8 14:49:00
--
项目事件CurrentTableChanged的一下代码删除，就正常了：
CurrentTable.Select(CurrentTable.Rows.Count-1,0)
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目82.rar |
说个题外话，你的东西有点乱，例如怎么会有这么多的外部数据源呢，不用一个表一个外部数据源的，这些表应该全部在一个数据源。
-- 发布时间：2013/11/8 15:06:00
--
谢谢狐狸爸爸！这个可不可以再优化呢，就是可以双击后可以一个个的删除字符，而不是双击后按Backspace退格键后512.001全都给删除了，同时现在是512.001，如果我录入512.01后，应该提示无此型号，但现在我录入512.01这个错识型号后，其相关的数据还是原来的512.001
-- 发布时间：2013/11/8 15:12:00
--
1、双击后所有内容自动选中，你按end键将光标移到最后，才可以按Backspace退格。
2、第二个问题，你在这个表的DataColChanged事件中写代码，判断输入的型号是否存在，如果不存在给出提示，并清除数据即可，先自己写一下吧，搞不定再说。