以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 这个代码怎么每次只能处理一行的数据?有没有办法多选或者全选? (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=84433) |
||||
-- 作者:jinzhengbe -- 发布时间: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 Next Dim cc As Integer = Tables("rukudan").Current("shuliang") t1.addnew(cc) 以上代码是写在按钮的事件里的 每次只能执行当前行添加行的任务。 不能一次性同时执行多个行或者全部行的么? |
||||
-- 作者:blackzhu -- 发布时间:2016/5/2 9:41:00 -- 你这个是要干吗? |
||||
-- 作者:大红袍 -- 发布时间: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 -- 发布时间:2016/5/5 0:11:00 -- .NET Framework 版本:2.0.50727.5485
执行后显示 上面的错误
|
||||
-- 作者:Hyphen -- 发布时间:2016/5/5 8:30:00 -- 上传例子说明 |
||||
-- 作者:大红袍 -- 发布时间:2016/5/5 9:14:00 -- 以下是引用jinzhengbe在2016/5/5 0:11:00的发言:
执行后显示 上面的错误
执行什么代码出问题啊?贴出代码,上传实例。 |
||||
-- 作者:jinzhengbe -- 发布时间:2016/5/8 13:57:00 --
窗口2的 按钮 2的 代码执行后 会有上面的错无 |
||||
-- 作者:大红袍 -- 发布时间: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 -- 发布时间:2016/5/8 22:07:00 -- 非常感谢。解决了
按钮1 又开始显示 同样的错误,麻烦也指点一下,
之前没有显示,不知道是为什么 |
||||
-- 作者:大红袍 -- 发布时间:2016/5/9 9:23:00 -- Tables("rukudan").Filter="name not in (\'" & DataTables("minxi").GetComboListString("name").replace("\'", "\'\'").replace("|","\',\'") & "\')"
|