主题：编写下次自动生成的起号

Select Case e.DataCol.Name
   
    Case "姓名","上年结转_张数","领入_张数","售出_张数","结存张数","售出_废piao","售出_金额"
       
        Dim dr As DataRow
       
        Dim mr As DataRow = e.DataRow
       
        Dim drs As List(of DataRow)
       
        dr = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") & " And [姓名] = '" & mr("姓名") & "'", "[_SortKey] Desc")
       
        If dr Is Nothing Then '如果没有上一行,说明本行就是同产品的第一行
           
            mr("结存张数") = mr("上年结转_张数") + mr("领入_张数") - mr("售出_张数")- mr("售出_废piao")
           
            mr("结存金额") = mr("售出_金额")
           
            dr = mr
           
        Else
            If dr.IsNull("售出_止号") = False Then
                e.datarow("售出_起号") = dr("售出_止号") + 1
            ElseIf dr.IsNull("上年结转_起号") = False Then
                e.datarow("售出_起号") = dr("上年结转_起号")
            End If
           
        End If
       
        drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") & " And [姓名] = '" & dr("姓名") & "'")
       
        For i As Integer = 1 To drs.Count - 1 '重算余下行的余额
           
            drs(i)("结存张数") = drs(i-1)("结存张数") + drs(i)("上年结转_张数") + drs(i)("领入_张数") - drs(i)("售出_张数")- drs(i)("售出_废piao")
           
            drs(i)("结存金额") = drs(i-1)("结存金额") + drs(i)("售出_金额")
           
        Next
       
End Select

有点甜老师:

谢谢老师！我马上试一下！????????

有点甜老师：

           出现如下错误提示

              .NET Framework 版本：2.0.50727.8669
Foxtable 版本：2017.10.26.1
错误所在事件：表，明细账，DataColChanged
详细错误信息：
调用的目标发生了异常。
从字符串“”到类型“Double”的转换无效。
输入字符串的格式不正确。

试试

 

        Else

            msgbox(dr("售出_止号") & "|" & dr("上年结转_起号"))
            If dr.IsNull("售出_止号") = False Then
                e.datarow("售出_起号") = val(dr("售出_止号")) + 1
            ElseIf dr.IsNull("上年结转_起号") = False Then
                e.datarow("售出_起号") = val(dr("上年结转_起号"))
            End If

老师：

     我作的这个表是按您推见的流水账的代码改过来的，刚才我发现流水账中还有一个Aftermoverow的事件代码。请问我作的表中要不要也写这个代码。如果写，要怎么改写？

     Dim Key As Decimal
Dim Index As Integer
Dim Filter As String
Dim r As Row
Index = Math.Min(e.OldIndex, e.NewIndex)
Key = e.Table.Rows(Index)("_SortKey")
r = e.Table.Rows(e.NewIndex)
Filter = "[_SortKey] >= " & Key & " And [产品] = '" & r("产品") & "'"
e.Table.DataTable.DataCols("入库").RaiseDataColChanged(Filter)

 

 

Aftermoverow 事件的代码可以不写。

老师：

       您给编的自动生成的起号可以用了。但还有一个小问题，就是要作到当售出张数为空时，所在行的售出起号也为空，请老师在原代码上改写一下！

 

      以下是您已编 的代码和我出现问题的截图：

<!--StartFragment -->

   Select Case e.DataCol.Name
   
    Case "姓名","上年结转_张数","领入_张数","售出_张数","结存张数","售出_废piao","售出_金额","所领入_张数","所领入结存张数"
       
        Dim dr As DataRow
       
        Dim mr As DataRow = e.DataRow
       
        Dim drs As List(of DataRow)
       
        dr = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") & " And [姓名] = '" & mr("姓名") & "'", "[_SortKey] Desc")
       
        If dr Is Nothing Then '如果没有上一行,说明本行就是同产品的第一行
           
            mr("结存张数") = mr("上年结转_张数") + mr("领入_张数") - mr("售出_张数")- mr("售出_废piao")
           
            mr("结存金额") = mr("售出_金额")
            mr("所领入结存张数") = mr("所领入_张数")
           
            dr = mr
           
        Else
            If dr.IsNull("售出_止号") = False Then
                e.DataRow("售出_起号") = val(dr("售出_止号")) + 1
            ElseIf dr.IsNull("上年结转_起号") = False Then
                e.DataRow("售出_起号") = val(dr("上年结转_起号"))
            End If
        End If
        drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") & " And [姓名] = '" & dr("姓名") & "'")
       
        For i As Integer = 1 To drs.Count - 1 '重算余下行的余额
           
            drs(i)("结存张数") = drs(i-1)("结存张数") + drs(i)("上年结转_张数") + drs(i)("领入_张数") - drs(i)("售出_张数")- drs(i)("售出_废piao")
           
            drs(i)("结存金额") = drs(i-1)("结存金额") + drs(i)("售出_金额")
            drs(i)("所领入结存张数") = drs(i-1)("所领入结存张数") + drs(i)("所领入_张数")
           
        Next
       

此主题相关图片如下：xr3k5n0{6kvh{3(wgo~2j0k.png

老师 ，还有一个问题，为什么 每次打开明细表时，是一片空白，一定要进入窗口管理时才显示全表？

后面加上代码