Foxtable(狐表)用户栏目专家坐堂 → 【已解决】[求助]为什么这段代码从第二批数据开始就没有客户名称了?变量弹窗有内容。第一批有内容,偶尔第三批也有内容,就第二批不管怎么样都没内容


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

主题:【已解决】[求助]为什么这段代码从第二批数据开始就没有客户名称了?变量弹窗有内容。第一批有内容,偶尔第三批也有内容,就第二批不管怎么样都没内容

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


加好友 发短信
等级:六尾狐 帖子:1465 积分:10397 威望:0 精华:0 注册:2018/10/16 11:42:00
【已解决】[求助]为什么这段代码从第二批数据开始就没有客户名称了?变量弹窗有内容。第一批有内容,偶尔第三批也有内容,就第二批不管怎么样都没内容  发帖心情 Post By:2019/10/5 18:25:00 [只看该作者]

[求助]为什么这段代码从第二批数据开始就没有客户名称了?变量弹窗有内容。第一批有内容,偶尔第三批也有内容,就第二批不管怎么样都没内容(红色区域为一批)
'''

Dim 客户群 As WinForm.TextBox = e.Form.Controls("客户群")

Dim 客户名 As String
Dim txt As String = 客户群.value
If txt.Contains(Chr(13) & Chr(10)) Then
    Dim txts() As String = txt.split(Chr(13) & Chr(10))
    For I As Integer = 0 To txts.Length - 1
客户名 = txts(I) 
        For Each r As Row In Tables("运费_Table1").Rows            
            Dim rr As Row =Tables("运费").AddNew()
            rr("目的地")=r("目的地")
            rr("客户名称")= 客户名 
            rr("首重")=r("首重")
            rr("续重")=r("续重")
            rr("首重重量")=r("首重重量")
            rr("①")=r("①")
            rr("②")=r("②")
            rr("③")=r("③")
            rr("进位制")=r("进位制")
            rr("快递名")=r("快递名")

        Next
客户名=""
    Next
End If
[此贴子已经被作者于2019/10/6 13:24:23编辑过]

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


加好友 发短信
等级:六尾狐 帖子:1465 积分:10397 威望:0 精华:0 注册:2018/10/16 11:42:00
  发帖心情 Post By:2019/10/6 8:32:00 [只看该作者]

北京
重庆
天津
河南省
河北省
福建省
山东省
比如内容是这样的

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


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

Dim 客户群 As WinForm.TextBox = e.Form.Controls("客户群")

Dim 客户名 As String
Dim txt As String = 客户群.value
Dim txts() As String = txt.Replace(Chr(13),"") .split(Chr(10))
For I As Integer = 0 To txts.Length - 1
    客户名 = txts(I)
    For Each r As Row In Tables("运费_Table1").Rows
        Dim rr As Row =Tables("运费").AddNew()
        rr("目的地")=r("目的地")
        rr("客户名称")= 客户名
        rr("首重")=r("首重")
        rr("续重")=r("续重")
        rr("首重重量")=r("首重重量")
        rr("①")=r("①")
        rr("②")=r("②")
        rr("③")=r("③")
        rr("进位制")=r("进位制")
        rr("快递名")=r("快递名")
    Next
Next

 回到顶部