Foxtable(狐表)用户栏目专家坐堂 → 如何填充数据


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

主题:如何填充数据

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


加好友 发短信
等级:六尾狐 帖子:1290 积分:9820 威望:0 精华:0 注册:2012/9/19 21:13:00
如何填充数据  发帖心情 Post By:2020/7/25 18:00:00 [只看该作者]

如何把下列数据

10000|12345 |33456|11234|55678|







[此贴子已经被作者于2020/7/27 6:24:05编辑过]

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


加好友 发短信
等级:童狐 帖子:243 积分:1811 威望:0 精华:2 注册:2018/1/16 20:53:00
  发帖心情 Post By:2020/7/26 0:32:00 [只看该作者]

Dim str As String = "10000|12345|33456|11234|55678"
Dim Values() As String = str.Split("|")
For v As Integer = 0 To Values.Length - 1
    For i As Integer = 0 To Values(v).Length - 1
        Output.Show(Values(v).Chars(i))
    Next
Next

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


加好友 发短信
等级:六尾狐 帖子:1290 积分:9820 威望:0 精华:0 注册:2012/9/19 21:13:00
  发帖心情 Post By:2020/7/26 15:03:00 [只看该作者]

谢谢
[此贴子已经被作者于2020/7/27 6:21:51编辑过]

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


加好友 发短信
等级:六尾狐 帖子:1290 积分:9820 威望:0 精华:0 注册:2012/9/19 21:13:00
  发帖心情 Post By:2020/7/26 15:13:00 [只看该作者]

谢谢
[此贴子已经被作者于2020/7/27 6:22:28编辑过]

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


加好友 发短信
等级:超级版主 帖子:106209 积分:540168 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/7/26 20:31:00 [只看该作者]

Dim str As String = "10000|12345|33456|11234|55678"
Dim Values() As String = str.Split("|")
dim r as row
For each s as string in Values
r = tables("表A").addnew
    For i As Integer = 0 To s.Length - 1
r(i) = s(i)
    Next
Next

 回到顶部