以文本方式查看主题
- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]这是什么错误 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=49978)
|
-- 作者:czgtiger
-- 发布时间:2014/4/27 8:59:00
-- [求助]这是什么错误
NET Framework 版本:2.0.50727.3655 Foxtable 版本:2013.10.14.1 错误所在事件:表,表A,DataColChanged 详细错误信息: Exception has been thrown by the target of an invocation. Index and length must refer to a location within the string. Parameter name: length
|
-- 作者:lsy
-- 发布时间:2014/4/27 9:01:00
--
代码引用超出了字符串长度。
|
-- 作者:有点甜
-- 发布时间:2014/4/27 9:13:00
--
写了些什么代码,贴出来瞧瞧。
|
-- 作者:czgtiger
-- 发布时间:2014/4/27 9:15:00
--
就是小修改了一下自动编号的代码,
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.Compute("Max(单据编号)",flt) \'取得该月的相同工程代码的最大单据编号 If max > "" Then \'如果存在最大单据编号 idx = CInt(max.Substring(12,4)) + 1 \'获得最大单据编号的后四位顺序号,并加1 Else idx = 1 \'否则顺序号等于1 End If e.DataRow("单据编号") = bh & Format(idx,"0000") End If End If End
Select
|
-- 作者:czgtiger
-- 发布时间:2014/4/27 9:16:00
--
修改成如下:
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,"yy") & "-" \'生成编号的前缀 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.Compute("Max(产品编号)",flt) \'取得该月的相同工程代码的最大单据编号 If max > "" Then \'如果存在最大单据编号 idx = CInt(max.Substring(12,4)) + 1 \'获得最大单据编号的后四位顺序号,并加1 Else idx = 1 \'否则顺序号等于1 End If e.DataRow("产品编号") = bh & Format(idx,"0000") End If End If End Select
|
-- 作者:有点甜
-- 发布时间:2014/4/27 9:19:00
--
一般是这句代码有问题。
idx = CInt(max.Substring(12,4)) + 1 \'获得最大单据编号的后四位顺序号,并加1
试试这样来修改
idx = CInt(max.Substring(bh.Length,4)) + 1
|
-- 作者:czgtiger
-- 发布时间:2014/4/27 9:29:00
--
非常感谢有点甜老师,问题是出在这一句,修改后,问题解决了
|