- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 怎么把某行里的abc列里的数值 按照从大到小，依次写入到 D E F 列? 已经上传例子。 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=31111)
-- 发布时间：2013/4/10 13:07:00
-- 怎么把某行里的abc列里的数值 按照从大到小，依次写入到 D E F 列? 已经上传例子。
如题
怎么把某行里的abc列里的数值 按照从大到小，依次写入到 D E F 列?
该怎么写呢
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目2.zip |
已经上传例子。
[此贴子已经被作者于2013-4-10 13:24:17编辑过]
-- 发布时间：2013/4/10 13:15:00
--
上例子
-- 发布时间：2013/4/10 13:31:00
--
顶一下
-- 发布时间：2013/4/10 13:35:00
--
Dim drs As List(Of DataRow)
drs = DataTables("表A").Select("[数1] is not null")
For Each dr As DataRow In drs
dr("箱长") = dr("数1")
Next
-- 发布时间：2013/4/10 13:42:00
--
以下是引用e-png在2013-4-10 13:35:00的发言：
Dim drs As List(Of DataRow)
drs = DataTables("表A").Select("[数1] is not null")
For Each dr As DataRow In drs
dr("箱长") = dr("数1")
Next
Dim drs As List(Of DataRow)
drs = DataTables("表A").Select("[数1] is not null")
For Each dr As DataRow In drs
dr("箱长") = dr("数1")
Next
呃 我的意思是说 如果数1 数2 数3 是 2 ，3， 1， 那写入到箱长，箱宽，箱高的时候，得是 3，2，1
如果是2，2， 3 那写入时就是3， 2，2
[此贴子已经被作者于2013-4-10 13:42:57编辑过]
-- 发布时间：2013/4/10 14:11:00
--
\'以下代码请放到按钮中测试
Dim Dt As DataTable = DataTables("表A")
Dim SCols As String = "数1,数2,数3"
Dim RCols As String = "箱高,箱长,箱宽"
Dim lst As List(of Integer)
For Each dr As DataRow In Dt.DataRows
lst = new List(of Integer)
For j As Integer = 0 To SCols.Split(",").Length - 1
lst.Add(dr(SCols.Split(",")(j)))
Next
lst.Sort()
For i As Integer = lst.Count - 1 To 0 Step - 1
dr(RCols.Split(",")(lst.Count - i - 1)) = lst(i)
Next
Next
-- 发布时间：2013/4/10 14:14:00
--
此主题相关图片如下：未命名.jpg
出来的效果是这样的。
-- 发布时间：2013/4/10 14:16:00
--
正确的结果应该是什么样的？
-- 发布时间：2013/4/10 14:17:00
--
正确的结果应该是 ： 如果 数1，数2，数3 是 2，4，7的话 ， 那箱长，箱宽，箱高应该是 7，4，2
如果 数1，数2，数3 是 4，4，7的话 ，那箱长，箱宽，箱高应该是 7，4，4
-- 发布时间：2013/4/10 14:22:00
--
此主题相关图片如下：2013-04-10 14-20-59.png
这个结果对不对？