以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=44474)
--  作者：nothing
--  发布时间：2014/1/1 13:26:00
--  
Dim s As String ="您好,他好,我们好,大家好"
Dim Values() As String
Values = s.split(",")
For Index As Integer = 0 To Values.Length - 1
    Dim R As Row = Tables("表A").AddNew
    R("第一列") = Values(Index)
Next
--  作者：nothing
--  发布时间：2014/1/1 13:29:00
--  
Dim s As String ="您好,他好,我们好,大家好"
Dim Values() As String
Values = s.split(",")
For Index As Integer = 0 To Values.Length - 1
    Dim r As Row =Tables("表A").Rows(Index)    \'根据字符串分割的个数来决定行数
    r("第一列") = Values(Index)
Next
--  作者：lsy
--  发布时间：2014/1/1 13:33:00
--  
For i As Integer = 0 To "您好,他好,我们好,大家好".Split(",").Length - 1
    Tables("表A").Rows(i)("第一列") = "您好,他好,我们好,大家好".Split(",")(i)
Next
--  作者：lsy
--  发布时间：2014/1/1 15:23:00
--  

For i As Integer = 0 To "您好,他好,我们好,大家好".Split(",").Length - 1
    Tables("表A").Rows(7 + i)("第一列") = "您好,他好,我们好,大家好".Split(",")(i)
Next

For i As Integer = 0 To "您好,他好,我们好".Split(",").Length - 1
    Tables("表A").Rows(7 + i)("第二列") = "您好,他好,我们好".Split(",")(i)
Next

For i As Integer = 0 To "您好,他好".Split(",").Length - 1
    Tables("表A").Rows(7 + i)("第三列") = "您好,他好".Split(",")(i)
Next