以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  如何填充数据  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=152917)
--  作者：lyfxybc
--  发布时间：2020/7/25 18:00:00
--  如何填充数据
如何把下列数据

10000|12345 |33456|11234|55678|







[此贴子已经被作者于2020/7/27 6:24:05编辑过]
--  作者：linyunu
--  发布时间：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
--  发布时间：2020/7/26 15:03:00
--  
谢谢
[此贴子已经被作者于2020/7/27 6:21:51编辑过]
--  作者：lyfxybc
--  发布时间：2020/7/26 15:13:00
--  
谢谢
[此贴子已经被作者于2020/7/27 6:22:28编辑过]
--  作者：有点蓝
--  发布时间：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