- 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=184201)
-- 发布时间：2022/11/28 11:56:00
-- 提示语法错误，错在哪里了呢？
自定义函数
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("查询条件") )
-- 发布时间：2022/11/28 12:03:00
--
提示什么具体错误？
-- 发布时间：2022/11/28 12:40:00
--
此主题相关图片如下：1.png
-- 发布时间：2022/11/28 13:35:00
--
"基础资料"是查询表？
msgbox("类别＝\'" & Args(0) & "\'")弹出什么内容？
-- 发布时间：2022/11/28 13:59:00
--
此主题相关图片如下：1.png
-- 发布时间：2022/11/28 14:01:00
--
看不出什么问题，请上传实例测试
-- 发布时间：2022/11/28 14:05:00
--
新版本编辑器，总有这样的问题，我全部删除，重新写一次就好了
[此贴子已经被作者于2022/11/28 19:12:00编辑过]