以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]关于一个编程的问题,按条件插入号 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=58784) |
||||
-- 作者:zenbu -- 发布时间:2014/10/23 18:09:00 -- [求助]关于一个编程的问题,按条件插入号 下边是我要达到的效果,我自己编的效果不是很好,肯请大家的帮助 我自己编的当中最大的问题是无法判断1号,如果没有1号,只有从2号开始 那么即使插入1个号也是只能从3号开始插入,而且代码编的很繁复。
‘--------下面是我自己编的代码
Dim st As Date = Date.Now \'将开始时间保存在变量st中 Dim dt As Date Tables("packinglist").Sort = "ctno" \'先进行排序 Dim js As WinForm.TextBox = e.Form.Controls("ct") Dim ttl As List(of String) = DataTables("packinglist").GetValues("ctno") Dim mxn As Integer = DataTables("packinglist").Compute("max(ctno)") If n = 0 Then \'如果没有任何箱号,那么就从1号开始
Dim mm As List(of String) = DataTables("packinglist").GetValues("ctno") \'用这个就不能从1号开始,必须要有1号才可以从1号开始
|
||||
-- 作者:zenbu -- 发布时间:2014/10/23 18:26:00 -- 这个代码之前也编过一个,笨方法,从1号开始核对上一个号是否满足条件 数量少的时候还行,但是行数有2,3千的时候就很慢了 因为有时候数字是有2,3,2000这种时候。 所以改成上边的方式,速度是快了一些,但是有点问题 [此贴子已经被作者于2014-10-23 18:28:29编辑过]
|
||||
-- 作者:有点甜 -- 发布时间:2014/10/23 19:08:00 -- 不知道你想做什么,再有,例子发上来。 |
||||
-- 作者:zenbu -- 发布时间:2014/10/23 20:52:00 --
上传了列子了 |
||||
-- 作者:有点甜 -- 发布时间:2014/10/23 20:54:00 -- 你的逻辑是什么。 |
||||
-- 作者:zenbu -- 发布时间:2014/10/23 21:14:00 -- 此主题相关图片如下:qq截图20141023211546.jpg |
||||
-- 作者:不倒的翁 -- 发布时间:2014/10/23 21:35:00 -- 接龙游戏,4条龙。。。 |
||||
-- 作者:有点甜 -- 发布时间:2014/10/23 21:41:00 -- 这个意思?
Dim count As Integer = 2 Dim dt As DataTable = DataTables("表A") Dim pn As Integer = 0 For i As Integer = 0 To nums.Count - 1 For i As Integer = 1 To count |
||||
-- 作者:游 -- 发布时间:2014/10/23 21:46:00 -- 增加辅助列,放置上下差额
find 大于等于插入数的行
累加插入 |
||||
-- 作者:zenbu -- 发布时间:2014/10/23 21:55:00 -- 是的,是这个样子,太厉害了 |