按钮代码问题求助版主？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

动态加载后，点击“增加”按钮就会出现加载失败，至少一个参数没被指定值，这是代码的问题吗？

按钮代码：Tables("证书编号表").AddNew

CurrentChanged事件

If Forms("证书编号").Opened Then

Forms("证书编号").Controls("总人数").Text = e.Table.Compute("count(姓名)")

Forms("证书编号").Controls("初级工").Text = e.Table.Compute("count(姓名)", "鉴定等级 = '初级工'")

Forms("证书编号").Controls("中级工").Text = e.Table.Compute("count(姓名)", "鉴定等级 = '中级工'")

Forms("证书编号").Controls("高级工").Text = e.Table.Compute("count(姓名)", "鉴定等级 = '高级工'")

Forms("证书编号").Controls("技师").Text = e.Table.Compute("count(姓名)", "鉴定等级 = '技师'")

Forms("证书编号").Controls("高级技师").Text = e.Table.Compute("count(姓名)", "鉴定等级 = '高级技师'")

Forms("证书编号").Controls("男").Text = e.Table.Compute("count(姓名)", "性别 = '男'")

Forms("证书编号").Controls("女").Text = e.Table.Compute("count(姓名)", "性别 = '女'")

End If

datarowAdded事件代码为空

在项目事件里，BeforeLoadInnerTable---

If e.DataTableName = "证书编号表" Then

e.Filter = "[_Identify] Is Null"

End If

在窗口做了个目录树控件，控件的NodeMouseDoubleClick事件代码：

Dim Filter As String

If e.node.Text = "加载所有数据" Then

Filter = ""

Else

Dim dr As DataRow = e.Node.DataRow '获取生成此节点的DataRow

Select Case e.Node.Level

Case 0

Filter ="[鉴定批次] = '" & dr("鉴定批次") & "'"

Case 1

Filter ="[鉴定批次] = '" & dr("鉴定批次") & "' And [工作单位] = '" & dr("工作单位") & "'"

End Select

End If

DataTables("证书编号表").LoadFilter = Filter

DataTables("证书编号表").Load()

有这两列，但都不是表达式列

表里其它列里到是有表达式列

版主，我水平太次，找不出问题的根源，上传图片，您给看看
图片点击可在新窗口打开查看

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

点窗口其它按钮没问题，就是点“新增”按钮会出上图报错，另外点主菜单中的“重置列”按钮也会

我查了代码，也发现不了错在哪，感觉都还对。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:鉴定管理系统.rar

这是项目，您给看看，代码错在哪

谢谢版主！！！！！！问题应该解决了，也不报错了，我也搞不清楚这段代码是怎么写上去的，可能是当时有这个需求时写的，只是后来忘了删除了图片点击可在新窗口打开查看

主题：按钮代码问题求助版主？