- 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=141856)
-- 发布时间：2019/10/12 17:04:00
-- 无法创建新的堆栈防护页
同题，经过是这样的，有一个项目打开了。
又用FOX打开了同一个项目（不小心），并在“系统参数表”中增加了一行记录，“操作类型” 是“续前余额” ，就这样了。
后来关闭项目，“系统
此主题相关图片如下：出错.png
参数表” 新增加的都不能用，”系统参数表“ 以前的记录是可用，用新记录就这种现象。
此主题相关图片如下：出错.png参数表” 新增加的都不能用，”系统参数表“ 以前的记录是可用，用新记录就这种现象。
-- 发布时间：2019/10/12 17:08:00
--
If e.DataCol.Name="操作类型"
e.DataRow("制单日期")=Date.Now
Dim dr As DataRow
dr=DataTables("系统参数").Find("[表名] = \'" & e.DataTable.Name & "\'And [操作类型]=\'" & e.DataRow("操作类型") & "\'And [部门]=\'" & e.DataRow("部门") & "\'")
e.DataRow("工程代码")=dr("工程代码")
End If
Select e.DataCol.Name
Case "制单日期","工程代码"
If e.DataRow.IsNull("制单日期") OrElse e.DataRow.IsNull("工程代码") Then
e.DataRow("收付编号") = Nothing
Else
Dim d As Date = e.DataRow("制单日期")
Dim y As Integer = d.Year
Dim m As Integer = d.Month
Dim Days As Integer = Date.DaysInMonth(y,m)
Dim fd As Date = New Date(y,m,1) \'获得该月的第一天
Dim ld As Date = New Date(y,m,Days) \'获得该月的最后一天
Dim bh As String = e.DataRow("工程代码") & "-" & Format(d,"yyyyMM") & "-" \'生成编号的前缀
If e.DataRow("收付编号").StartsWith(bh) = False \'如果单据编号前缀不符
Dim max As String
Dim idx As Integer
Dim flt As String
flt = "工程代码 = \'"& e.DataRow("工程代码") & "\' And 制单日期 >= #" & fd & "# And 制单日期 <= #" & ld & "# And [_Identify] <> " & e.DataRow("_Identify")
max = e.DataTable.SQLCompute("Max(收付编号)",flt) \'取得该月的相同工程代码的最大单据编号
If max > "" Then \'如果存在最大单据编号
idx = CInt(max.Substring(13,4)) + 1 \'获得最大单据编号的后四位顺序号,并加1
Else
idx = 1 \'否则顺序号等于1
End If
e.DataRow("收付编号") = bh & Format(idx,"0000")
End If
End If
End Select
-- 发布时间：2019/10/12 17:16:00
--
每次都能这样吗，打开2次同一个项目都会这样吗？
-- 发布时间：2019/10/12 17:16:00
--
账户付款，账户收款 这两项都行。
-- 发布时间：2019/10/12 17:17:00
--
此主题相关图片如下：出错-01.png
-- 发布时间：2019/10/12 17:19:00
--
每次都能这样吗，打开2次同一个项目都会这样吗？如果是把项目发上来看看，如果不方便，发给客服测试
-- 发布时间：2019/10/12 17:26:00
--
每次选择 “续前余额” 或 “承前余额” 都这样 出错退出。 这两项是出错后加进的。
-- 发布时间：2019/10/12 17:27:00
--
重启N次都一样的
-- 发布时间：2019/10/12 17:55:00
--
这个需要例子测试才行。
-- 发布时间：2019/10/13 8:18:00
--
问题找到了，原因是，没有 Y02 赋值。贴上例子模型，方便大家测试。谢谢各位老师