以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]窗口表查找数组的值，没找到的新增  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=126405)
--  作者：天一生水
--  发布时间：2018/10/20 18:04:00
--  [求助]窗口表查找数组的值，没找到的新增
在窗口表的[姓名]列查找文本框中的多个姓名，数据表中没有的，就新增此姓名的一行。
然后筛选出    文本框中的姓名   所在的行。
请老师看看代码哪里错了？
谢谢！

\'\'\'
Dim srr() As String = e.Form.Controls("TextBox1").text.split("、")
For Each s As String In srr
    Dim dr As DataRow
    dr = DataTables("数据表").Find("姓名 = s")
    If dr IsNot Nothing Then \'如果找到的话
        Tables("确认信息_table1").Filter = " 姓名 = s"
    Else
        DataTables("数据表").AddNew
        dr("姓名") = s
        Tables("确认信息_table1").Filter = " 姓名 = s"
    End If
Next

图片点击可在新窗口打开查看此主题相关图片如下：image 1.jpg
图片点击可在新窗口打开查看
--  作者：有点甜
--  发布时间：2018/10/21 13:53:00
--  
\'\'\'
Dim str As String = e.Form.Controls("TextBox1").text
Dim srr() As String = str.split("、")
For Each s As String In srr
    Dim dr As DataRow
    dr = DataTables("数据表").Find("姓名 = \'" & s & "\'")
    If dr IsNot Nothing Then \'如果找到的话
        DataTables("数据表").AddNew
        dr("姓名") = s
    End If
Next
Tables("确认信息_table1").Filter = " 姓名 in (\'" & str.Replace("、", "\',\'") & "\')"
--  作者：天一生水
--  发布时间：2018/10/21 14:12:00
--  
谢谢甜老师！
但是只添加了空行，没按照姓名新增，请老师看一下：
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:确认信息.table



[此贴子已经被作者于2018/10/21 14:22:24编辑过]
--  作者：有点甜
--  发布时间：2018/10/21 14:50:00
--  
\'\'\'
Dim str As String = e.Form.Controls("TextBox1").text
Dim srr() As String = str.split("、")
For Each s As String In srr
    Dim dr As DataRow
    dr = DataTables("数据表").Find("姓名 = \'" & s & "\'")
    If dr Is Nothing Then \'如果找到的话
        dr = DataTables("数据表").AddNew
        dr("姓名") = s
    End If
Next
Tables("确认信息_table1").Filter = " 姓名 in (\'" & str.Replace("、", "\',\'") & "\')"