Foxtable(狐表)用户栏目专家坐堂 → 想实现表A信息保存时,往另外一个表写入对应表a指定字段的值,提示索引超出了数组界限


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

主题:想实现表A信息保存时,往另外一个表写入对应表a指定字段的值,提示索引超出了数组界限

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


加好友 发短信
等级:七尾狐 帖子:1571 积分:11238 威望:0 精华:0 注册:2021/1/17 17:06:00
想实现表A信息保存时,往另外一个表写入对应表a指定字段的值,提示索引超出了数组界限  发帖心情 Post By:2022/7/6 16:18:00 [只看该作者]

想实现表A信息保存时,往另外一个表写入对应表a指定字段的值,提示索引超出了数组界限


Dim cmd As SQLCommand = “”
cmd.CommandText = "sele ct * fr om 解除查封或扣押通知书 where guid='" & e.Values("guid") & "'"
Dim dt As DataTable = cmd.ExecuteReader(True)
Dim dr As DataRow = dt.DataRows(0)
If dr IsNot Nothing Then
    If dr("存根返还情况")="未生成" Then
        dr("存根返还情况")="已生成"
    End If

    cmd.CommandText = "sele ct * fr om 人员信息表 where guid='" & dr("身份证号") & "'"
    msg(dr("身份证号") )
    Dim dt1 As DataTable = cmd.ExecuteReader(True)
    Dim dr1 As DataRow = dt1.DataRows(0)
    If dr1 IsNot Nothing Then   '如果存在这个身份证号的数据,就不做操作,反之就新增数据行并保存
    Else
' msg(dr("身份证号"))
        dt1.AddNew
        dr1("姓名")=dr("对象")
        dr1("身份证号")=dr("身份证号") 
    End If
    dt1.Save
End If
dt.Save

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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/7/6 16:25:00 [只看该作者]

判断ExecuteReader是否返回数据应该这样判断

Dim dt As DataTable = cmd.ExecuteReader(True)
if dt.datarows.count > 0 then

 回到顶部