以文本方式查看主题

-  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
Foxtable 版本:2015.12.22.1
错误所在事件:窗口,窗口2,Button2,Click
详细错误信息:
语法错误:“s”运算符后缺少操作数。

 

执行后显示 上面的错误

 


--  作者: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
--  

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:chaxun.rar

 

窗口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("|","\',\'") & "\')"