局域网客户端新增确定提示 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 局域网客户端新增确定提示

共有3451人关注过本帖树形打印复制链接主题：局域网客户端新增确定提示

shqpldczj

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：147 积分：1343 威望：0 精华：0 注册：2016/4/6 14:05:00

局域网客户端新增确定提示 发帖心情

Post By：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

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/7/31 15:11:00 [只看该作者]

1、不要把项目或者程序放到共享里使用

2、如果是共享数据库的，应该是共享目录没有开放写入权限

主题：局域网客户端新增确定提示