主题：关于批量入库

Dim str = e.Form.controls("textbox3").text
For Each s As String In str.replace(chr(10), "").split(chr(13))    
    Dim r = DataTables("流量卡资料库").Find("流量卡号 = '" & s & "'")    
    If r Is Nothing Then        
        r = DataTables("流量卡资料库").AddNew
        r("服务商") = e.Form.Controls("TextBox1").text
        r("购买金额") = e.Form.Controls("TextBox2").text
        r("流量卡号") = s        
    Else        
        msgbox("重复了" & s)        
    End If      
Next

经过测试如果有重复的编号数据虽然提示有重复但还是有保存数据的行为，怎么设置只要用重复的数据就不执行保存过程呢？

Dim str  = e.Form.controls("textbox3").text
For Each s As String In str.replace(chr(10), "").split(chr(13))
    Dim r = DataTables("流量卡资料库").Find("流量卡号 = '" & s & "'")
    If r IsNot Nothing Then
        msgbox("重复了" & s)
        Return
    End If
Next
For Each s As String In str.replace(chr(10), "").split(chr(13))
    Dim r = DataTables("流量卡资料库").AddNew
    r("服务商") = e.Form.Controls("TextBox1").text
    r("购买金额") = e.Form.Controls("TextBox2").text
    r("流量卡号") = s   
Next

 

必须换行吗？

For Each s As String In str.replace(chr(10), "").split(chr(13))

 

改成

 

For Each s As String In str.replace(chr(10), "").split(new char() {chr(13), ","})

这样如果各行尾有“，”符号时会在数据库中添加一条空编号的数据的，怎样避免这一点呢？

Dim str = e.Form.controls("textbox3").text
For Each s As String In split(new Char() {chr(13), ","})
    If s > "" Then
        Dim r = DataTables("流量卡资料库").Find("流量卡号 = '" & s & "'")
        If r IsNot Nothing Then
            msgbox("重复了" & s)
            Return
        End If
    End If
Next
For Each s As String In str.split(new Char() {chr(13), ","})
    If s > "" Then
        Dim r = DataTables("流量卡资料库").AddNew
       r("服务商") = e.Form.Controls("TextBox1").text
        r("购买金额") = e.Form.Controls("TextBox2").text
        r("流量卡号") = s
    End If
Next

保存后47和49的数据没保存呢？
此主题相关图片如下：微信截图_20181129231313.png

Dim str = e.Form.controls("textbox3").text
For Each s As String In str.split(new Char() {chr(13), ","})
    s = s.replace(chr(10), "").replace(chr(13), "")
    If s > "" Then
        Dim r = DataTables("流量卡资料库").Find("流量卡号 = '" & s & "'")
        If r IsNot Nothing Then
            msgbox("重复了" & s)
            Return
        End If
    End If
Next
For Each s As String In str.split(new Char() {chr(13), ","})
    s = s.replace(chr(10), "").replace(chr(13), "")
    msgbox(s)
    If s > "" Then
        Dim r = DataTables("流量卡资料库").AddNew
        r("服务商") = e.Form.Controls("TextBox1").text
        r("购买金额") = e.Form.Controls("TextBox2").text
        r("流量卡号") = s
    End If
Next

Dim startno As String = e.Form.Controls("TextBox1").text
Dim endno As String = e.Form.Controls("TextBox2").text

If DataTables("流量卡资料库").Find("流量卡号 >= '" & startno & "' and 流量卡号 <= '" & endno & "'") Is Nothing Then
    Dim pfix As String = left(startno, startno.Length-4)
    Dim ka1 As Integer = right(startno, 4)
    Dim ka2 As Integer = right(Endno, 4)
    For i As Integer = ka1 To ka2
        Dim r As Row = Tables("流量卡资料库").AddNew
        r("服务商") = e.Form.Controls("TextBox4").text
        r("购买金额") = e.Form.Controls("TextBox3").text
        r("流量卡号") = pfix & i
    Next
Else
    msgbox("已存在卡号")   甜老师怎样获取并重复的第一个重复的“流量卡号”呢？
End If