遍历行与列赋值  得到列名值为空？怎么解决呢？

在同一个表中  当提供单位或个人为多值时，将多值进行拆分生成多行数据  同时对应的其它列的值  全部相同  当前代码只实现了将多值拆分成多行，其它列没有对应复制过来

 
此主题相关图片如下：21.png

当前代码为：【经判断系红色部分代码出错，得不到对应的列名并赋值】
cmd.Com mandText =  "sel ect * from {调取证据通知书} where 提供单位或个人=\'" & e.Values("证据提供者") & "\'"
If cmd.Execut eScalar > 0 Then    \'查找到数据
    For Each s As String In str.split(",")    \'对传入的值进行拆分
        If s.Length>0 Then  \'如果拆分的值大于0
            Dim dt1 As DataTable = cmd.ExecuteReader()
            Dim bb1 As DataRow
            cmd.CommandText =  "sel ect * from {调取证据通知书} where 提供单位或个人=\'" & s & "\'"
            Dim dt As DataTable = cmd.ExecuteReader(True)
            Dim bb As DataRow
            If dt.DataRows.Count>0 Then   \'如果S数据存在,暂时不做操作
               
            Else   \'如果s数据不存在,则新增数据
                For Each Row As DataRow In dt1.DataRows     \'遍历dt1的所有行
                    For Each Col As DataCol In dt1.datacols   \'遍历dt1的所有列
                        bb=dt.AddNew          \'新增dt表行
                        If Col.name="提供单位或个人" Then
                            bb("提供单位或个人")=s   \'指定提供单位或个人为s数据
                        Else
                            bb(Col.name)=bb1(Col.name)  \'其他列直接对应列名赋值相应的数据
                        End If
                    Next
                Next
            End If
            dt.save
        End If
    Next
    cmd.CommandText =  "del ete from {调取证据通知书} where 提供单位或个人=\'" & e.Values("证据提供者") & "\'"
    cmd.ExecuteReader
End If

谢谢老师  已解决赋值问题  但是没有解决为什么要保存e.Values("证据提供者")条件的数据……

A,B,C这行不需要保存   想实现直接传e.Values("证据提供者")参过来后，就自动将当前所有 内容自动赋值

Public Sub form304_save2_Ajax(rq as Request)
Dim e As RequestEventArgs = rq.e
Dim cmd As SQL Com mand = rq.cmd
Dim str As String =e.Values("证据提供者")
cmd.Comm andText =  "sel ect * from {调取证据通知书} where 提供单位或个人=\'" & e.Values("证据提供者") & "\'"
If cmd.ExecuteScalar > 0 Then    \'查找到数据
    For Each s As String In str.split(",")    \'对传入的值进行拆分
        If s.Length>0 Then  \'如果拆分的值大于0
   Dim dt1 As DataTable = cmd.ExecuteReader(True)
            Dim bb1 As DataRow = dt1.DataRows(0)
            cmd.CommandText =  "sel ect * from {调取证据通知书} where 提供单位或个人=\'" & s & "\'"
            Dim dt As DataTable = cmd.ExecuteReader(True)
            Dim bb As DataRow
            If dt.DataRows.Count>0 Then   \'如果S数据存在,暂时不做操作
               
            Else   \'如果s数据不存在,则新增数据 
    bb=dt.AddNew         \' 新增dt表行
                \'For Each Row As DataRow In dt.DataRows     \'遍历dt1的所有行
                    For Each Col As DataCol In dt.datacols   \'遍历dt1的所有列                     
                        If Col.name="提供单位或个人" Then
                            bb("提供单位或个人")=s   \'指定提供单位或个人为s数据
                        Else  If Col.name="guid" Then
                            bb("guid")=guid.newguid.tostring()   \'指定提供单位或个人为s数据
                        Else     
                            bb(Col.name)=bb1(Col.name)  \'其他列直接对应列名赋值相应的数据
                        End If
                    Next
                \'Next
            End If
            dt.save
        End If
    Next
    cmd.CommandText =  "dele te from {调取证据通知书} where 提供单位或个人=\'" & e.Values("证据提供者") & "\'"
    cmd.ExecuteReader
End If
 rq.e.WriteString(rq.msg.ToString)
End Sub