- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 求助打开后自动加载某个条件的表 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=58583)
-- 发布时间：2014/10/20 13:26:00
-- 求助打开后自动加载某个条件的表
此主题相关图片如下：1.jpg
1.1内的姓名等于“报名数据库”中选定行的姓名，下面的方框内的表是“报名数据库”副表，当这个窗口打开后，自动打开副表“报名数据库”中的“姓名字段”的报名信息；我的代码是：Tables("学生家庭信息库.报名数据库").Filter = "学生姓名 = Label13 "，提示错误信息是找不到LABE13的列~~~求助~~
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.foxdb |
-- 发布时间：2014/10/20 13:28:00
--
Tables("学生家庭信息库.报名数据库").Filter = "学生姓名 = Label13 "，---这句代码我是写在“打印票据窗口”的自动打开后执行的代码中AFTERLOAD中~~
-- 发布时间：2014/10/20 14:16:00
--
Tables("学生家庭信息库.报名数据库").Filter = "学生姓名 = \'" & e.Form.Controls("Label13").Text & "\'"
-- 发布时间：2014/10/20 15:10:00
--
此主题相关图片如下：1.jpg
试了下不行，说找不到列Label13，是不是加载窗口时，姓名还没有附值给Label13，所以才这样？
-- 发布时间：2014/10/20 15:12:00
--
你有照着改吗？全部要改啊
-- 发布时间：2014/10/20 15:49:00
--
我在AFTERLOAD中改的，打开窗口后执行，全都要改指的是哪个地方还要改？
-- 发布时间：2014/10/20 15:55:00
--
以下是引用漂亮美眉vszh在2014-10-20 15:49:00的发言：
我在AFTERLOAD中改的，打开窗口后执行，全都要改指的是哪个地方还要改？
我在AFTERLOAD中改的，打开窗口后执行，全都要改指的是哪个地方还要改？
如果你afterload改了，就不可能报错
-- 发布时间：2014/10/21 8:39:00
--
以下是引用有点甜在2014-10-20 15:55:00的发言：
如果你afterload改了，就不可能报错
甜老师，我上了附件，麻烦你帮我看下~~
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目1.foxdb |
在窗口“打印报名表”中
另外顺便再问个问题当我选择“材料出库”的商品代码列时，打开某个窗口；但当我打开“报名信息表.材料出库”的商品代码列时，打开另外一个某个窗口，在表属性内改的代码报错~~
此主题相关图片如下：1.jpg
麻烦你了老师~~If e.Col.Name = "商品编号" Then
e.Cancel = True \'取消默认动作
Forms("添加出库购品代码").Open()
End If
If e.Col.Name = "统一报名编号" Then
e.Cancel = True \'取消默认动作
Forms("材料添加报名号").Open()
End If
If Tables("报名信息表新增").ShowCheckBox = True Then
If e.Col.Name = "商品编号" Then
e.Cancel = True \'取消默认动作
Forms("报名新增添加出库商品代码").Open()
End If
End If
-- 发布时间：2014/10/21 8:48:00
--
Tables("学生家庭信息库.报名数据库").Filter = "学生姓名 = Label13 "
你这叫做按照要求改了?
-- 发布时间：2014/10/21 8:50:00
--
CellButtonClick代码改为
If e.Col.Name = "商品编号" Then
If Tables("报名信息表新增").ShowCheckBox = True Then
e.Cancel = True \'取消默认动作
Forms("报名新增添加出库商品代码").Open()
Else
e.Cancel = True \'取消默认动作
Forms("添加出库购品代码").Open()
End If
End If
If e.Col.Name = "统一报名编号" Then
e.Cancel = True \'取消默认动作
Forms("材料添加报名号").Open()
End If