- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 自动增加行顺序问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=121179)
-- 发布时间：2018/6/30 16:35:00
-- 自动增加行顺序问题
请教：
Select Case e.DataCol.name
Case "下料"
If e.newvalue = False Then
DataTables("下料清单").DeleteFor("零部件编号=\'" & e.DataRow("零部件编号") & "\'")
Else
Dim ndr As DataRow = DataTables("下料清单").AddNew
ndr("零部件编号") = e.DataRow("零部件编号")
End If
Case "机加工"
If e.newvalue = False Then
DataTables("机加工清单").DeleteFor("零部件编号=\'" & e.DataRow("零部件编号") & "\'")
Else
Dim ndr As DataRow = DataTables("机加工清单").AddNew
ndr("零部件编号") = e.DataRow("零部件编号")
End If
Case "组合焊接"
If e.newvalue = False Then
DataTables("焊接部件清单").DeleteFor("零部件编号=\'" & e.DataRow("零部件编号") & "\'")
Else
Dim ndr As DataRow = DataTables("焊接部件清单").AddNew
ndr("零部件编号") = e.DataRow("零部件编号")
End If
Case "零件表面无损探伤"
If e.newvalue = False Then
DataTables("零件探伤清单").DeleteFor("零部件编号=\'" & e.DataRow("零部件编号") & "\'")
Else
Dim ndr As DataRow = DataTables("零件探伤清单").AddNew
ndr("零部件编号") = e.DataRow("零部件编号")
End If
End Select
按上述编码自动增加行
先选中的先生成，例如到“下料清单”中后零部件编号就是乱的
能不能让自动生成行后，顺序始终是按零部件编号的顺序排列
-- 发布时间：2018/6/30 17:12:00
--
截图说明一下，怎么个乱法？
-- 发布时间：2018/7/2 14:44:00
--
如图，想始终按照零部件编号的顺序排列，而不是按照自动增加行的先后顺序排列
此主题相关图片如下：捕获.jpg
-- 发布时间：2018/7/2 14:51:00
--
加上sort的代码
http://www.foxtable.com/webhelp/scr/0451.htm
-- 发布时间：2018/7/2 16:15:00
--
在beforesort事件里编写e.Sort = "零部件编号"么？
试了一下，不行呀！
-- 发布时间：2018/7/2 18:51:00
--
以下是引用13775189031在2018/7/2 16:15:00的发言：
在beforesort事件里编写e.Sort = "零部件编号"么？
在beforesort事件里编写e.Sort = "零部件编号"么？
试了一下，不行呀！
需要排序的时候，都写 Tables("订单").Sort = "客户,日期 DESC"
比如，可以写到datacolchanged事件。
-- 发布时间：2018/7/5 13:00:00
--
搞定！谢谢！