- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 点下接窗口闪退 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=135608)
-- 发布时间：2019/5/30 9:08:00
-- 点下接窗口闪退
请看实例（开发版）
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:cnc生产管理.rar |
此主题相关图片如下：tim图片20190530091051.png
此主题相关图片如下：tim图片20190530091059.png
[此贴子已经被作者于2019/5/30 10:15:10编辑过]
-- 发布时间：2019/5/30 9:29:00
--
数据库发上来才能测试。
-- 发布时间：2019/5/30 10:16:00
--
数据库上传了
-- 发布时间：2019/5/30 10:22:00
--
datacolchanged事件代码，写到datarowadded事件，即可
Dim max As String
Dim idx As Integer
max = e.DataTable.Compute("Max(报价单编号)","substring(报价单编号,1,4) >= \'" & Date.Today.Year & "\'") \'取得该月的最大编号
If max > "" Then \'如果存在最大编号
idx = CInt(max.Substring(10,4)) + 1 \'获得最大编号的后三位顺序号,并加1
Else
idx = 1 \'否则顺序号等于1
End If
e.DataRow("报价单编号") = Format(1,"BJ") & format(Date.Today, "yyyyMMdd") & Format(idx,"0000")
-- 发布时间：2019/5/30 12:10:00
--
谢谢指导