Foxtable(狐表)用户栏目专家坐堂 → 一个自定义录入界面弄了2天还弄搞不出来真要疯了


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

主题:一个自定义录入界面弄了2天还弄搞不出来真要疯了

帅哥,在线噢!
yuyaoyw
??1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:127 积分:877 威望:0 精华:0 注册:2012/12/24 22:08:00
一个自定义录入界面弄了2天还弄搞不出来真要疯了??发帖心情 Post By:2019/9/9 13:37:00 [只看该作者]

看着帮助弄的自定义录入界面,相关字段就是不出来,代码对了50遍没问题啊,其他几行数据就是不出来
我论坛上的例子下载打开一开始能跳出来,后来建了个关联就不跳出来,后来重新下载还是不会跳出来了
不知道是我电脑问题还是我智商问题
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("部门名称")
? ? ?End If
? ? e.Form.DropDownBox.CloseDropDown()
End If
这个是论坛上的例子,一开始可以,后面也一直不行了,文件重新下载也不行

If e.Selected Then '如果选择了值
? ? Dim tbl As Table = Tables("自定义录入界面_Table1")
? ? If tbl.Current IsNot Nothing Then
? ? ? ? e.Form.DropDownBox.Value = tbl.Current("成品名称")
? ? ? ? Tables("BOM表").Current("成品名称") = tbl.Current("成品名称")
? ? ? ? Tables("BOM表").Current("成品规格") = tbl.Current("成品规格")
? ? ? ? Tables("BOM表").Current("单位1") = tbl.Current("单位1")
? ? ? ? If e.Form.DropTable IsNot Nothing Then '如果是通过表下拉的
? ? ? ? ? ? e.Form.DropTable.FinishEditing()?
? ? ? ? Else '如果是通过窗口下拉的
? ? ? ? ? ? e.Form.DropDownBox.WriteValue()?
? ? ? ? End If
? ? End If
End If
我的弄了两天还是不跳出了,不知道哪里出问题了搞的快要崩溃了!帮助看了50遍没法现有问题

?回到顶部
帅哥,在线噢!
yuyaoyw
??2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:127 积分:877 威望:0 精华:0 注册:2012/12/24 22:08:00
??发帖心情 Post By:2019/9/9 13:38:00 [只看该作者]

Tables("BOM表").Current("成品名称") = tbl.Current("成品名称")
? ? ? ? Tables("BOM表").Current("成品规格") = tbl.Current("成品规格")
? ? ? ? Tables("BOM表").Current("单位1") = tbl.Current("单位1")
后面的三个字段就是带不出来? ,列名什么的都没问题啊


?回到顶部
帅哥,在线噢!
yuyaoyw
??3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:127 积分:877 威望:0 精华:0 注册:2012/12/24 22:08:00
??发帖心情 Post By:2019/9/9 13:39:00 [只看该作者]

奇怪的是下载的文件请加等级,别人的文件一开始可以的,后面重新打开重新下载就一直不行了
?? ? ? Tables("请假登记表").Current("姓名") = tbl.Current("姓名")
? ? ? ? Tables("请假登记表").Current("部门编号") = tbl.Current("部门编号")
? ? ? ? Tables("请假登记表").Current("部门名称") = tbl.Current("部门名称")
也跳不出来了

?回到顶部
帅哥,在线噢!
狐狸爸爸
??4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:46406 积分:244305 威望:0 精华:91 注册:2008/6/17 17:14:00
??发帖心情 Post By:2019/9/9 13:52:00 [只看该作者]

删除项目文件夹下的bin目录,然后重新打开看看。
如果还不行,做例子发上来。

?回到顶部
帅哥,在线噢!
yuyaoyw
??5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:127 积分:877 威望:0 精华:0 注册:2012/12/24 22:08:00
??发帖心情 Post By:2019/9/9 13:59:00 [只看该作者]

狐狸老爸,还是不行啊
If e.Selected Then '如果选择了值
? ? Dim tbl As Table = Tables("自定义录入界面_Table1")
? ? If tbl.Current IsNot Nothing Then
? ? ? ? e.Form.DropDownBox.Value = tbl.Current("成品名称")
MessageBox.show("1")
? ? ? ? Tables("BOM表").Current("成品名称") = tbl.Current("成品名称")
? ? ? ? Tables("BOM表").Current("成品规格") = tbl.Current("成品规格")
? ? ? ? Tables("BOM表").Current("单位1") = tbl.Current("单位1")
MessageBox.show("2")
? ? ? ? If e.Form.DropTable IsNot Nothing Then '如果是通过表下拉的
? ? ? ? ? ? e.Form.DropTable.FinishEditing()?
? ? ? ? Else '如果是通过窗口下拉的
? ? ? ? ? ? e.Form.DropDownBox.WriteValue()?
? ? ? ? End If
? ? End If
End If

1 , 2 都能跳出来 ,也没有错误提示,就是带不出后面几个相关字段

?回到顶部
帅哥,在线噢!
有点蓝
??6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:34799 积分:177149 威望:0 精华:8 注册:2015/6/24 9:21:00
??发帖心情 Post By:2019/9/9 14:00:00 [只看该作者]

做个实例发上来看看

?回到顶部
帅哥,在线噢!
yuyaoyw
??7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:127 积分:877 威望:0 精华:0 注册:2012/12/24 22:08:00
??发帖心情 Post By:2019/9/9 14:03:00 [只看该作者]

?下载信息??[文件大小:???下载次数:?]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.rar


?回到顶部
帅哥,在线噢!
yuyaoyw
??8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:127 积分:877 威望:0 精华:0 注册:2012/12/24 22:08:00
??发帖心情 Post By:2019/9/9 14:05:00 [只看该作者]

请老师帮我看看哪里的问题啊

?回到顶部
帅哥,在线噢!
有点蓝
??9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:34799 积分:177149 威望:0 精华:8 注册:2015/6/24 9:21:00
??发帖心情 Post By:2019/9/9 14:09:00 [只看该作者]

无法连接数据库,改为内部表的项目发上来。另外,哪个表哪个窗口,什么测试

?回到顶部
帅哥,在线噢!
yuyaoyw
??10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:127 积分:877 威望:0 精华:0 注册:2012/12/24 22:08:00
??发帖心情 Post By:2019/9/9 15:03:00 [只看该作者]

老师请帮我看下


?回到顶部
总数 50 1 2 3 4 5 下一页