主题：求助打开后自动加载某个条件的表

此主题相关图片如下：1.jpg

1.1内的姓名等于“报名数据库”中选定行的姓名，下面的方框内的表是“报名数据库”副表，当这个窗口打开后，自动打开副表“报名数据库”中的“姓名字段”的报名信息；我的代码是：Tables("学生家庭信息库.报名数据库").Filter = "学生姓名 = Label13 "，提示错误信息是找不到LABE13的列~~~求助~~

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.foxdb

Tables("学生家庭信息库.报名数据库").Filter = "学生姓名 = Label13 "，---这句代码我是写在“打印piao据窗口”的自动打开后执行的代码中AFTERLOAD中~~

Tables("学生家庭信息库.报名数据库").Filter = "学生姓名 = '" & e.Form.Controls("Label13").Text & "'"

此主题相关图片如下：1.jpg

试了下不行，说找不到列Label13，是不是加载窗口时，姓名还没有附值给Label13，所以才这样？

 你有照着改吗？全部要改啊

我在AFTERLOAD中改的，打开窗口后执行，全都要改指的是哪个地方还要改？

 

如果你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

Tables("学生家庭信息库.报名数据库").Filter = "学生姓名 = Label13 "

CellButtonClick代码改为