以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  返回  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=123867)
--  作者：yangwenghd
--  发布时间：2018/8/25 9:01:00
--  返回
能帮忙看看这个吗？
为什么Return没有执行呢？绿色代码还是会弹出窗口， 感谢 感谢 
Dim s As String = ClipBoard.GetText()
s = s.Replace(chr(10), "").Replace("Address", chr(13) & "Address").Replace("Zip Code", chr(13) & "Zip Code").Replace("Mobile", chr(13) & "Mobile").Replace("Tel", chr(13) & "Tel").Replace("No", chr(13) & "No")
Dim nr As Row = Tables("订单管理").AddNew
nr("客户_详解") = s
For Each str As String In s.Split(Chr(13))
    Dim ss As String() = str.Split(":")
    If ss.length > 1 Then
        Dim cs As String = ss(0)
        Select Case cs.trim()
            Case "Contact Name"
                nr("客户_姓名")=ss(1)
            Case "Address"
                nr("客户_地址")=ss(1)
            Case "Zip Code"
                nr("客户_邮编")=ss(1)
            Case "Mobile"
                nr("客户_电话")=ss(1)
            Case "Tel"
                nr("客户_固话")=ss(1)
            Case "No"
                If DataTables("订单管理").find("no = \'" & ss(1) & "\'") IsNot Nothing Then
                    msgbox("已经存在此no")
                    nr.delete
                    Exit For
                    Return
                End If
                nr("No")=ss(1)
        End Select
    Else
        nr("客户_地址") = nr("客户_地址") & ss(0)
    End If
    If forms("订单商管选择窗口").Opened=False Then
        forms("订单商管选择窗口").Open
    End If
    forms("订单商管选择窗口").visible=True
Next
[此贴子已经被作者于2018/8/25 9:01:23编辑过]
--  作者：有点蓝
--  发布时间：2018/8/25 9:36:00
--  
说明条件不符合，没有进入这个Case "No"
--  作者：yangwenghd
--  发布时间：2018/8/25 15:05:00
--  
但是msgbox("已经存在此no")都弹出了的呀？感谢 感谢 
--  作者：有点蓝
--  发布时间：2018/8/25 15:22:00
--  
还有其他循环呀

如果想退出整个代码，去掉这句
Exit For
--  作者：yangwenghd
--  发布时间：2018/8/27 14:35:00
--  
我是想在弹出msgbox("已经存在此no")后就不再弹出
    If forms("订单商管选择窗口").Opened=False Then
        forms("订单商管选择窗口").Open
    End If
    forms("订单商管选择窗口").visible=True


Dim s As String = ClipBoard.GetText()
s = s.Replace(chr(10), "").Replace("Address", chr(13) & "Address").Replace("Zip Code", chr(13) & "Zip Code").Replace("Mobile", chr(13) & "Mobile").Replace("Tel", chr(13) & "Tel").Replace("No", chr(13) & "No")
Dim nr As Row = Tables("订单管理").AddNew
nr("客户_详解") = s
For Each str As String In s.Split(Chr(13))
    Dim ss As String() = str.Split(":")
    If ss.length > 1 Then
        Dim cs As String = ss(0)
        Select Case cs.trim()
            Case "Contact Name"
                nr("客户_姓名")=ss(1)
            Case "Address"
                nr("客户_地址")=ss(1)
            Case "Zip Code"
                nr("客户_邮编")=ss(1)
            Case "Mobile"
                nr("客户_电话")=ss(1)
            Case "Tel"
                nr("客户_固话")=ss(1)
            Case "No"
                If DataTables("订单管理").find("no = \'" & ss(1) & "\'") IsNot Nothing Then
                    msgbox("已经存在此no")
                    nr.delete
                    \'Exit For
                    Return
                End If
                nr("No")=ss(1)
        End Select
    Else
        nr("客户_地址") = nr("客户_地址") & ss(0)
    End If
    If forms("订单商管选择窗口").Opened=False Then
        forms("订单商管选择窗口").Open
    End If
    forms("订单商管选择窗口").visible=True
Next
--  作者：有点甜
--  发布时间：2018/8/27 15:13:00
--  
代码没问题，如果还遇到问题，做个例子发上来测试。