| 以文本方式查看主题 - 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=184191) |
| -- 作者：miaoqingqing -- 发布时间：2022/11/27 20:52:00 -- [求助]四列值比较大小后排序录入 求助，第一列 第二列 第三列 第四列 共4列值（整数列）从小到大排序后，录入到 第五列 第六列 第七列 第八列 |
| -- 作者：有点蓝 -- 发布时间：2022/11/27 21:12:00 -- 把前4列值加入集合，对集合排序后按顺序赋值到后4列 |
| -- 作者：miaoqingqing -- 发布时间：2022/11/27 21:28:00 -- 回复：（有点蓝）把前4列值加入集合，对集合排序后按顺... Dim vs(3) As Integer vs(0) = e.DataRow("第一列"). vs(1) = e.DataRow("第二列") vs(2) = e.DataRow("第三列") vs(3) = e.DataRow("第四列") Array.Sort(vs) e.DataRow("第五列") = " \'& vs(0)&\'" e.DataRow("第六列") = " \'& vs(1)&\'" e.DataRow("第七列") = " \'& vs(2)&\'" e.DataRow("第八列") = " \'& vs(3)&\'" 蓝总，上面代码报错，怎么修改写到表事件里呢？
|
| -- 作者：有点蓝 -- 发布时间：2022/11/27 22:00:00 -- e.DataRow("第五列") = vs(0) |
| -- 作者：miaoqingqing -- 发布时间：2022/11/27 22:10:00 -- 回复：（有点蓝）e.DataRow("第五列") = v... \'百十和,取最后1位 If e.DataCol.Name = "第一列" Or e.DataCol.Name = "第二列" Or e.DataCol.Name = "第三列" Or e.DataCol.Name = "第四列" Then \'如果更改的是十位列 If e.DataRow.IsNull("第一列") Or e.DataRow.IsNull("第二列") Or e.DataRow.IsNull("第三列") Or e.DataRow.IsNull("第四列") Then \'十位是否为空 e.DataRow("第五列") = Nothing e.DataRow("第六列") = Nothing e.DataRow("第七列") = Nothing e.DataRow("第八列") = Nothing ElseIf e.DataRow.IsNull("第一列") = False And e.DataRow.IsNull("第二列") = False And e.DataRow.IsNull("第三列") = False And e.DataRow.IsNull("第四列") = False Then \'十位是否为空 Dim vs(3) As Integer vs(0) = e.DataRow("第一列"). vs(1) = e.DataRow("第二列") vs(2) = e.DataRow("第三列") vs(3) = e.DataRow("第四列") Array.Sort(vs) \'e.DataRow("第五列") = vs(0) e.DataRow("第六列") = vs(1) e.DataRow("第七列") = vs(2) \'e.DataRow("第八列") = vs(3) End If End If 蓝总，上面代码报错如下; .NET Framework 版本：4.0.30319.42000 Foxtable 版本：2022.1.30.2 错误所在事件：表，表A，DataColChanged 详细错误信息： 调用的目标发生了异常。 未找到类型“Integer”的公共成员“vs”。 求助修复 |
| -- 作者：有点蓝 -- 发布时间：2022/11/27 22:20:00 -- 调试技巧：http://www.foxtable.com/webhelp/topics/1485.htm，看哪一句代码出错 |