| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 全局代码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=105155) |
| -- 作者：实话实说 -- 发布时间：2017/8/12 19:55:00 -- 全局代码 以下是重置插入行代码，如何把它转换成全局代码 Dim drs As List(of DataRow) = DataTables("材料总帐").Select("","[_SortKey]") For i As Integer = 0 To drs.Count - 1 drs(i).BaseRow("_SortKey") = i Next |
| -- 作者：有点甜 -- 发布时间：2017/8/13 14:00:00 -- 什么意思？你可以保存为函数来调用
http://www.foxtable.com/webhelp/scr/1486.htm
|
| -- 作者：实话实说 -- 发布时间：2017/8/13 15:26:00 -- 我想在工具栏上做一重置插入行按钮（重置_SortKey]列），对所有当前表适用。 |
| -- 作者：有点甜 -- 发布时间：2017/8/13 15:30:00 -- Dim drs As List(of DataRow) = CurrentTable.DataTable.Select("","[_SortKey]") For i As Integer = 0 To drs.Count - 1 drs(i).BaseRow("_SortKey") = i Next |