Foxtable(狐表)用户栏目专家坐堂 → 数组问题


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

主题:数组问题

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


加好友 发短信
等级:九尾狐 帖子:2355 积分:16187 威望:0 精华:0 注册:2013/9/1 8:09:00
数组问题  发帖心情 Post By:2019/9/11 19:03:00 [只看该作者]


老师,
如下问题原因是什么呢?


图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20190911190231.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20190911190255.png
图片点击可在新窗口打开查看

Dim cmd As new SQLCommand
cmd.C
Dim Multi As String = "02000909111752071741,13559053751,DELIVRD,2019-09-11 17:52:19^02000909111752071740,13559053751,DELIVRD,2019-09-11 17:52:19^02000909111752071739,13559053751,DELIVRD,2019-09-11 17:52:20^02000909111752071742,13559053751,DELIVRD,2019-09-11 17:52:20^"
Dim Values() As String
Dim Values2() As String
Values = Multi.split("^")
For Index As Integer = 0 To Values.Length - 2
    Values2 = Values(Index).split(",")

    cmd.CommandText = "Insert Into 通用版发短信接收报告 (msgid, 手机号码, 状态码,发送时间) Values(?,?,?,?)"
    cmd.Parameters.Add("@msgid",values2(0))
    cmd.Parameters.Add("@手机号码",values2(1))
    cmd.Parameters.Add("@状态码",values2(2))
    cmd.Parameters.Add("@发送时间",values2(3))
    cmd.ExecuteNonQuery()
    
    output.show(values2(0))
    output.show(values2(1))
    output.show(values2(2))
    output.show(values2(3))    
Next




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


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

For Index As Integer = 0 To Values.Length - 2
    Values2 = Values(Index).split(",")
cmd.Parameters.clear


 回到顶部