[浏览完整版]
标题：请教排序
1楼
实话实说 发表于：2008/11/29 14:49:00狐表因不能插入行，给排序带来很大额定不便，使用者抱怨较多。现请教示例文件的第一列和第二列如何排序成第三列和第四列
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
2楼
czy 发表于：2008/11/29 15:41:00笨办法，用临时表过度一下再将排序后的结果写入表中。
3楼
gdtgl 发表于：2008/11/29 16:08:004楼
gdtgl 发表于：2008/11/29 16:09:00如果程序做得不好，抱怨是绝对的。
5楼
实话实说 发表于：2008/11/29 16:27:00这个方法我也想过，只是我们的产品型号规格有几万个，加上派生的有十几万，这其中有的常用，有的现在不用，将来可能要用，有的可能根本就不会用，我不可能都录入再编上顺序号。
6楼
gdtgl 发表于：2008/11/29 17:04:00论坛中有学生学分排名的例子，或者有参考价值。
7楼
czy 发表于：2008/11/30 20:19:00如果只是一、两列进行这样的永久排序，还是可以的，我的想法是排序后重新写入，当然数据量很大的话保存较耗时。
如：
Dim dt As Table = Tables("表A")
For i As integer = 0 to dt.rows.count -1
dt.Rows(i)("第九列") = dt.Rows(i)("第一列")
dt.Rows(i)("第十列") = dt.Rows(i)("第二列")
Next
Dim drs As New List(Of DataRow)
drs = DataTables("表A").Select("","第九列,第十列")
For i As integer = 0 to dt.rows.count -1
dt.Rows(i)("第一列") = drs(i)("第九列")
dt.Rows(i)("第二列") = drs(i)("第十列")
Next
For i As integer = 0 to dt.rows.count -1
dt.Rows(i)("第九列") = Nothing
dt.Rows(i)("第十列") = Nothing
Next
上面的代码玩玩而已，别当真。
如：
Dim dt As Table = Tables("表A")
For i As integer = 0 to dt.rows.count -1
dt.Rows(i)("第九列") = dt.Rows(i)("第一列")
dt.Rows(i)("第十列") = dt.Rows(i)("第二列")
Next
Dim drs As New List(Of DataRow)
drs = DataTables("表A").Select("","第九列,第十列")
For i As integer = 0 to dt.rows.count -1
dt.Rows(i)("第一列") = drs(i)("第九列")
dt.Rows(i)("第二列") = drs(i)("第十列")
Next
For i As integer = 0 to dt.rows.count -1
dt.Rows(i)("第九列") = Nothing
dt.Rows(i)("第十列") = Nothing
Next
上面的代码玩玩而已，别当真。
8楼
实话实说 发表于：2008/12/1 8:21:00谢谢CZX的热心帮助。我不想再耗费大家的精力，我感觉除了插入行，无论什么方案都难以达到满意的效果。我现在就想确认一下，狐表插入行肯定不能实现吗？我只要两个答案：是或者不一定。
9楼
狐狸爸爸 发表于：2008/12/1 8:26:00| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目46.table |
10楼
ybil 发表于：2008/12/1 9:11:00