提示语法错误，错在哪里了呢？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

自定义函数

Dim max As String

Dim idx As Integer

max = Tables("基础资料").DataTable.sqlCompute("Max(编号)", "类别＝'" & Args(0) & "'") '取得该类别的最大编号

If max > "" Then '如果存在最大编号

idx = CInt(max) + 1 '获得最大编号的后三位顺序号,并加1

Else

idx = 1 '否则顺序号等于1

End If

Return format(idx, "000000")

调用函数

Vars("查询条件")＝"账户名称"

e.Form.Controls("TextBox1").Text = Functions.Execute("档案编号",Vars("查询条件") )

主题：提示语法错误，错在哪里了呢？