Foxtable(狐表)用户栏目专家坐堂 → 增加列出错


  共有5655人关注过本帖树形打印复制链接

主题:增加列出错

美女呀,离线,留言给我吧!
hbaijia
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:205 积分:1404 威望:0 精华:0 注册:2013/4/16 16:20:00
增加列出错  发帖心情 Post By:2013/5/2 10:04:00 [显示全部帖子]

             For Each dc As DataCol In DataTables("统计表").DataCols
                If dc.Name = "来源" Then
                Else
                    DataTables("统计表").DataCols.Add("来源", Gettype(String))
                End If
            Next

           
            'Tables("管理_Table2").Filter = ""
            Dim dt As DataRow
           
            For Each dr As Row In Tables("管理_Table2").Rows
                dt = DataTables("登记表").Find("编号 = '" & dr("编号") & "'")
                dr("来源") = dt("来源")
            Next
上述代码很奇怪,我想在一个表中加入临时列,如果只用蓝色的部分,可以实现,但每次都要提醒已有“来源”这个列了,我想加上一个判断如果有了这一列名,就不用加了,提示到是没了,但运行时发出错误的警告,“集合已修改,可能无法执行玫举操作!”就是下面的部分不执行了,而且还报错,是什么问题?


 回到顶部
美女呀,离线,留言给我吧!
hbaijia
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:205 积分:1404 威望:0 精华:0 注册:2013/4/16 16:20:00
  发帖心情 Post By:2013/5/2 10:24:00 [显示全部帖子]

可我在进行查询时,又出现第一次按要求找到相关项,但再次查找时,第一没查找到的部分,新增加列里的内容被清空了,所以再也找不到别的了,只执行一次正确结果。

 回到顶部