以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 自动增加行顺序问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=121179) |
-- 作者:13775189031 -- 发布时间: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 -- 截图说明一下,怎么个乱法? |
-- 作者:13775189031 -- 发布时间:2018/7/2 14:44:00 -- 如图,想始终按照零部件编号的顺序排列,而不是按照自动增加行的先后顺序排列 此主题相关图片如下:捕获.jpg |
-- 作者:有点甜 -- 发布时间:2018/7/2 14:51:00 -- 加上sort的代码
http://www.foxtable.com/webhelp/scr/0451.htm
|
-- 作者:13775189031 -- 发布时间: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 = "零部件编号"么? 试了一下,不行呀!
需要排序的时候,都写 Tables("订单").Sort = "客户,日期 DESC"
比如,可以写到datacolchanged事件。 |
-- 作者:13775189031 -- 发布时间:2018/7/5 13:00:00 -- 搞定!谢谢! |