以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 局域网客户端新增确定提示 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=187628) |
-- 作者:shqpldczj -- 发布时间:2023/7/31 15:06:00 -- 局域网客户端新增确定提示 \'---------以下是自动生成工号-------------------------- Dim i As String = DataTables("合同主表").Compute("max(序号)") Dim idx As Integer If i > "" Then idx = cint(i.SubString(1,9)) +1 Else idx =1 End If Tables("合同主表").Current("序号") = "H" & ForMAT(idx,"000000000") DataTables("合同主表").Save Tables("合同主表").AllowEdit = False e.Form.close
|
-- 作者:有点蓝 -- 发布时间:2023/7/31 15:11:00 -- 1、不要把项目或者程序放到共享里使用 2、如果是共享数据库的,应该是共享目录没有开放写入权限
|