Foxtable(狐表)用户栏目专家坐堂 → [讨论]不能是自己的数据源问题


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

主题:[讨论]不能是自己的数据源问题

帅哥哟,离线,有人找我吗?
zyqzyy
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:821 积分:5856 威望:0 精华:0 注册:2013/7/29 12:00:00
[讨论]不能是自己的数据源问题  发帖心情 Post By:2019/4/17 9:44:00 [只看该作者]

不能是自己的数据源问题:更新400条记录以内正常,400条记录后就提示下面的问题,如何解决?
(不能附件添加,图片上传不了)
函数如下:
Dim tb As String = args(0)
Dim key As String = args(1)
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "S ELECT * From {" & tb & "}"
dt = cmd.ExecuteReader()
Dim l As WinForm.Label = Forms("拷贝").Controls("Label1")
Dim i As Integer
l.Text = i
For Each dr As DataRow In dt.DataRows
    i += 1
    l.Text = i
    If DataTables(tb).Find(key & " = '" & dr(key) & "'") Is Nothing Then
        Dim nr As DataRow = DataTables(tb).AddNew()
        For Each dc As DataCol In dt.DataCols
            nr(dc.name) = dr(dc.name)
        Next
        nr.Save()
    Else
        For Each dc As DataCol In dt.DataCols
            'nr(dc.name) = dr(dc.name)
            DataTables(tb).ReplaceFor(dc.name, dr(dc.name) , key & "= '" & dr(key) & "'")
        Next
        DataTables(tb).Save()
    End If
Next

msgbox("OK")
[此贴子已经被作者于2019/4/17 9:49:56编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/4/17 10:50:00 [只看该作者]

代码看着没问题,贴出出错的提示

 

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78

 


 回到顶部