这个代码怎么每次只能处理一行的数据？有没有办法多选或者全选？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 这个代码怎么每次只能处理一行的数据？有没有办法多选或者全选？

共有3422人关注过本帖树形打印复制链接主题：这个代码怎么每次只能处理一行的数据？有没有办法多选或者全选？

jinzhengbe

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1062 积分：9781 威望：0 精华：0 注册：2012/3/13 5:23:00

这个代码怎么每次只能处理一行的数据？有没有办法多选或者全选？ 发帖心情

Post By：2016/5/1 23:09:00 [只看该作者]

Dim t1 As Table = Tables("rukudan.minxi")

For i1 As Integer = t1.rows.count-1 To 0 Step -1

t1.rows(i1).delete

Dim cc As Integer = Tables("rukudan").Current("shuliang")

t1.addnew(cc)

以上代码是写在按钮的事件里的

每次只能执行当前行添加行的任务。

不能一次性同时执行多个行或者全部行的么？

blackzhu

小大 2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐仙帖子：9879 积分：57634 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2016/5/2 9:41:00 [只看该作者]

你这个是要干吗?

大红袍

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/5/2 11:32:00 [只看该作者]

For Each dr As DataRow In DataTables("rukudan").Select("")
    DataTables("minxi").deletefor("第一列 = '" & dr("第一列") & "'")
    For i As Integer = 1 To dr("shuliang")
        Dim ndr As DataRow = DataTables("minxi").addnew
        ndr("第一列") = dr("第一列")
    Next
Next

jinzhengbe

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1062 积分：9781 威望：0 精华：0 注册：2012/3/13 5:23:00

Post By：2016/5/5 0:11:00 [只看该作者]

.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2015.12.22.1
错误所在事件：窗口,窗口2,Button2,Click
详细错误信息：
语法错误:“s”运算符后缺少操作数。

执行后显示上面的错误

Hyphen

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00

Post By：2016/5/5 8:30:00 [只看该作者]

上传例子说明

大红袍

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/5/5 9:14:00 [只看该作者]

以下是引用jinzhengbe在2016/5/5 0:11:00的发言：

执行后显示上面的错误

执行什么代码出问题啊？贴出代码，上传实例。

jinzhengbe

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1062 积分：9781 威望：0 精华：0 注册：2012/3/13 5:23:00

Post By：2016/5/8 13:57:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:chaxun.rar

窗口2的按钮 2的代码执行后会有上面的错无

大红袍

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/5/8 15:41:00 [只看该作者]

For Each dr As DataRow In DataTables("rukudan").Select("shuliang > 0")
    DataTables("minxi").deletefor("name = '" & dr("name").replace("'", "''") & "'")
    For i As Integer = 1 To dr("shuliang")
        Dim ndr As DataRow = DataTables("minxi").addnew
        ndr("name") = dr("name")
        ndr("danhao") = dr("rukudanhao")
        ndr("id") = dr("_Identify")
    Next
Next

jinzhengbe

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1062 积分：9781 威望：0 精华：0 注册：2012/3/13 5:23:00

Post By：2016/5/8 22:07:00 [只看该作者]

非常感谢。解决了

按钮1 又开始显示同样的错误，麻烦也指点一下，

之前没有显示，不知道是为什么

大红袍

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/5/9 9:23:00 [只看该作者]

Tables("rukudan").Filter="name not in ('" & DataTables("minxi").GetComboListString("name").replace("'", "''").replace("|","','") & "')"

下一主题 >> << 上一主题

总数 13 1 2 下一页

主题：这个代码怎么每次只能处理一行的数据？有没有办法多选或者全选？