以文本方式查看主题

-  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=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
新增窗体确定按钮代码,,,我在数据库本机新增都正常,但是在局域网其它电脑新增时就提示附加里的窗口不知道是什么原因
图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20230731145642.png
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2023/7/31 15:11:00
--  
1、不要把项目或者程序放到共享里使用
2、如果是共享数据库的,应该是共享目录没有开放写入权限