.NET Framework 版本:2.0.50727.5483
Foxtable 版本:2014.9.9.1
错误所在事件:表,成本核算表,DataColChanged
详细错误信息:
调用的目标发生了异常。
未找到类型“Integer”的公共成员“StartsWith”。
If e.DataCol.Name =
"日期"
Then
If e.DataRow.IsNull("日期")
Then
e.DataRow("编号") = Nothing
此主题相关图片如下:qq截图20140910151138.png
Else
Dim
bh As
String = Format(e.DataRow("日期"),"yyyyMMdd")
'取得编号的8位前缀
If e.DataRow("编号").StartsWith(bh) =
False
'如果编号的前8位不符
Dim max As
String
Dim idx As
Integer
max = e.DataTable.Compute("Max(编号)","日期 = #"
& e.DataRow("日期") & "# And [_Identify] <> " & e.DataRow("_Identify")) '取得该天的最大编号
If max > "" Then
'如果存在最大编号
idx = CInt(max.Substring(9,3)) + 1
'获得最大编号的后三位顺序号,并加1
Else
idx = 1
'否则顺序号等于1
End
If
e.DataRow("编号") = bh & "-" & Format(idx,"000")
End
If
End
If
End
If