- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 求助 错误i (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=18188)
-- 发布时间：2012/4/5 18:51:00
-- 求助 错误i
---------------------------
版本:2012.3.1.1
---------------------------
错误代码位置：表，原材料，DataColChanged
System.InvalidCastException: 从字符串“G00”到类型“Integer”的转换无效。 ---> System.FormatException: 输入字符串的格式不正确。
在 Microsoft.VisualBasic.CompilerServices.Conversions.ParseDouble(String Value, NumberFormatInfo NumberFormat)
在 Microsoft.VisualBasic.CompilerServices.Conversions.ToInteger(String Value)
--- 内部异常堆栈跟踪的结尾 ---
在 Microsoft.VisualBasic.CompilerServices.Conversions.ToInteger(String Value)
在 UserCode.DataColChanged(DataColEventArgs e)
---------------------------
确定
---------------------------
解决了
我在下来窗口里面的节点操作少了一截 导致填入错误
-- 发布时间：2012/4/5 23:08:00
--
提示的很明白了，原材料表的DataColChanged事件的代码向某一列写入内容的时候出现错误，因为您写入的是带大写英文的字符串，而那一列的列类型为整数型，至于是哪一列，只有您写代码的知道，请修改该列的列类型为字符型
-- 发布时间：2012/4/5 23:50:00
--
我借鉴的是这个实例
三、按类别编号
假定有下图所示的一个表，编号根据类别生成，前两位为类别，后三位为顺序号：
这个编号和类别我设计的是字符型 不知道对不对 才有上面的提示
要自动生成上面的编号，可以将DataColChanged事件代码设置为：
Select
e.DataCol.NameCase "类别"
If e.DataRow.IsNull("类别") Then
e.DataRow("编号") = Nothing
Else
Dim lb As String = e.DataRow("类别")
If e.DataRow("编号").StartsWith(lb) = False \'如果单据编号前缀不符
Dim max As String
Dim idx As Integer
max = e.DataTable.Compute("Max(编号)","类别 = \'" & lb & "\'") \'取得该类别的最大编号
If max > "" Then \'如果存在最大编号
idx = CInt(max.Substring(2,3)) + 1 \'获得最大编号的后三位顺序号,并加1
Else
idx = 1 \'否则顺序号等于1
End If
e.DataRow("编号") = lb & Format(idx,"000")
End If
End If
End Select