以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  想实现表A信息保存时，往另外一个表写入对应表a指定字段的值，提示索引超出了数组界限  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=178494)
--  作者：cnsjroom
--  发布时间：2022/7/6 16:18:00
--  想实现表A信息保存时，往另外一个表写入对应表a指定字段的值，提示索引超出了数组界限
想实现表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
--  作者：有点蓝
--  发布时间：2022/7/6 16:25:00
--  
判断ExecuteReader是否返回数据应该这样判断

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