主题：求助 错误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)
---------------------------
确定  
---------------------------

 

 

解决了

 

我在下来窗口里面的节点操作少了一截  导致填入错误

提示的很明白了，原材料表的DataColChanged事件的代码向某一列写入内容的时候出现错误，因为您写入的是带大写英文的字符串，而那一列的列类型为整数型，至于是哪一列，只有您写代码的知道，请修改该列的列类型为字符型

我借鉴的是这个实例

三、按类别编号

假定有下图所示的一个表，编号根据类别生成，前两位为类别，后三位为顺序号：

        这个编号和类别我设计的是字符型   不知道对不对  才有上面的提示

 

要自动生成上面的编号，可以将DataColChanged事件代码设置为：

Select e.DataCol.Name
Case "类别"
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