- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 流水帐新增行顺序错乱，如何解决？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=193086)
-- 发布时间：2024/8/15 14:39:00
-- 流水帐新增行顺序错乱，如何解决？
Select Case e.DataCol.Name
Case "产品编号", "期初_数量", "入库_数量", "出库_数量"
Dim dr As DataRow
Dim mr As DataRow = e.DataRow
Dim drs As List(Of DataRow)
dr = e.DataTable.Find("[行号] < " & mr("行号") & " And [产品编号] = \'" & mr("产品编号") & "\'", "[行号] Desc")
If dr Is Nothing Then
mr("库存_数量") = mr("期初_数量") + mr("入库_数量") - mr("出库_数量")
dr = mr
End If
drs = e.DataTable.Select("[行号] >= " & dr("行号") & " And [产品编号] = \'" & dr("产品编号") & "\'", "[行号]")
For 行号 As Integer = 1 To drs.Count - 1
drs(行号)("库存_数量") = drs(行号 - 1)("库存_数量") + drs(行号)("入库_数量") - drs(行号)("出库_数量")
Next
If e.DataCol.Name = "产品编号" AndAlso e.OldValue IsNot Nothing AndAlso e.OldValue <> e.NewValue Then
dr = e.DataTable.Find("[行号] < " & mr("行号") & " And [产品编号] = \'" & e.OldValue & "\'", "[行号] Desc")
If dr Is Nothing Then
dr = e.DataTable.Find("[产品编号] = \'" & e.OldValue & "\'", "[行号]")
If dr IsNot Nothing Then
dr("库存_数量") = dr("入库_数量") - dr("出库_数量")
End If
End If
If dr IsNot Nothing Then
drs = e.DataTable.Select("[行号] >= " & dr("行号") & " And [产品编号] = \'" & dr("产品编号") & "\'", "[行号]")
For 行号 As Integer = 1 To drs.Count - 1
drs(行号)("库存_数量") = drs(行号 - 1)("库存_数量") + drs(行号)("入库_数量") - drs(行号)("出库_数量")
Next
End If
End If
End Select
有时会升序，有时会降序，有时中间插入，如何让它按固定一种？比如在最后一行
此主题相关图片如下：新增顺序.png
-- 发布时间：2024/8/15 14:42:00
--
按行号排序
-- 发布时间：2024/8/15 15:58:00
--
dr = e.DataTable.Find("[行号] < " & mr("行号") & " And [产品编号] = \'" & mr("产品编号") & "\'", "[行号] Desc")
问题1：按行号排序还是错乱，如何处理不乱？如何更好？\'DataRowAdded
Dim max As Integer = e.DataTable.Compute("Max(行号)")
e.DataRow("行号") = max + 1
代码执行，还有重号，如处理？
[此贴子已经被作者于2024/8/15 16:00:50编辑过]
-- 发布时间：2024/8/15 16:03:00
--
_Identify
-- 发布时间：2024/8/15 16:15:00
--
没有用，行号原来不是主键，现在改主键，还是一样错乱。
-- 发布时间：2024/8/15 16:37:00
--
排序：http://www.foxtable.com/webhelp/topics/0451.htm
Tables("订单").Sort = "行号"
-- 发布时间：2024/8/16 15:20:00
--
Dim Cols3() As String = {"下期", "产品编号", "数量""}\'
Dim Cols4() As String = {"下期", "产品编号", "数量""}\'
For Each dr3 As DataRow In DataTables("窗口_Table1").Select("选中=True") \'
If DataTables("窗口_Table2").Find("产品编号 = \'" & dr3("产品编号") & "\'") Is Nothing Then \'
Dim dr4 As Row = Tables("窗口_Table2").AddNew() \'
For r As Integer = 0 To Cols3.Length - 1
dr4(Cols4(r)) = dr3(Cols3(r))
Next
Else
End If
Next
执行一次后，怎么会行号和其他数据都重复三条或多条，如何实现不重复？
此主题相关图片如下：流水重复.png
-- 发布时间：2024/8/16 15:33:00
--
7楼代码和行号有啥关系？行号怎么生成的！
-- 发布时间：2024/8/16 15:44:00
--
行号生成
Dim max As Integer = e.DataTable.Compute("Max(行号)")
e.DataRow("行号") = max + 1
查一下，是下面问题，保存一次就所有数据复制一次，在其他表保存，没有发现异常，用流水帐，就会这样保存一次就所有数据复制一次，如何处理？
Dim db = HySql.DataBaseFactory.CreateDatabase("t4") \'
Dim dt2 As DataTable = e.Form.Controls("Table2").Table.DataTable
Dim dtb2 As System.Data.DataTable = dt2.basetable.Copy \'
dtb2.Columns.Remove("_Locked") \'
dtb2.Columns.Remove("System_Sort_Temporary")
dtb2.Columns.Remove("System_Filter_Temporary")
dtb2.Columns.Remove("System_Filter_Unique")
Dim res2 = db.UpdateDataTable(dtb2, "流水")
\'dt2.AcceptChanges()
MessageBox.Show("保存成功!"
-- 发布时间：2024/8/16 16:23:00
--
每次保存后，重新加载数据绑定窗口表