Foxtable(狐表)用户栏目专家坐堂 → 返回


  共有2379人关注过本帖树形打印复制链接

主题:返回

帅哥哟,离线,有人找我吗?
yangwenghd
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2707 积分:18062 威望:0 精华:0 注册:2013/4/9 10:41:00
返回  发帖心情 Post By: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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/8/25 9:36:00 [只看该作者]

说明条件不符合,没有进入这个Case "No"


 回到顶部
帅哥哟,离线,有人找我吗?
yangwenghd
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2707 积分:18062 威望:0 精华:0 注册:2013/4/9 10:41:00
  发帖心情 Post By:2018/8/25 15:05:00 [只看该作者]

但是msgbox("已经存在此no")都弹出了的呀?感谢 感谢 

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/8/25 15:22:00 [只看该作者]

还有其他循环呀

如果想退出整个代码,去掉这句
Exit For


 回到顶部
帅哥哟,离线,有人找我吗?
yangwenghd
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2707 积分:18062 威望:0 精华:0 注册:2013/4/9 10:41:00
  发帖心情 Post By: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

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/8/27 15:13:00 [只看该作者]

代码没问题,如果还遇到问题,做个例子发上来测试。

 回到顶部