主题：[求助]编号

此主题相关图片如下：出库单编号.png
老师，请说明事件代码的位子。

 可以查考这里 http://www.foxtable.com/help/topics/2403.htm

 

.NET Framework 版本：2.0.50727.3655
Foxtable 版本：2014.5.12.1
错误所在事件：表，入库，DataRowAdding
详细错误信息：
Exception has been thrown by the target of an invocation.
Conversion from string "RK04" to type 'Double' is not valid.
Input string was not in a correct format.
老师，这是一个什么错误信息。

代码写错了,上例子.

呃......代码要改一下

 

Dim Max As String = e.DataTable.Compute("Max(编号)")
If max > "" Then
    e.DataRow("编号") = "RK" & Format(Cint(max.SubString(2)) + 1, "00")
Else
    e.DataRow("编号") = "RK01"
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.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
此主题相关图片如下：编号.png

 如果有问题，请上传例子。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:蓝峰管理.table

老师好，入库单编号、入库编号明细还是不行。"编号"列不要有字母让字母直接在"入库单编号"列生成。入库编号明细我没有设置谢谢老师帮我了。

入库，Datacolchanged，代码

 

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 = "RK" & Format(d,"yyMM") & "" '生成编号的前缀
            If e.DataRow("入库单编号").StartsWith(bh) = False '如果单据编号前缀不符
                Dim max As String
                Dim idx As Integer
                Dim flt As String
                flt = "记录日期 >= #" & fd & "# And 记录日期 <= #" & ld & "# And [_Identify] <> " & e.DataRow("_Identify")
                max = e.DataTable.Compute("Max(入库单编号)",flt) '取得该月的相同工程代码的最大单据编号
                If max > "" Then '如果存在最大单据编号
                    idx = CInt(max.Substring(bh.length,4)) + 1 '获得最大单据编号的后四位顺序号,并加1
                Else
                    idx = 1 '否则顺序号等于1
                End If
                e.DataRow("入库单编号") = bh & Format(idx,"0000")
            End If
        End If
End Select

谢谢老师