以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  有这样一维的函数吗？求解 谢谢  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=101530)
--  作者：limit_1982
--  发布时间：2017/6/2 10:47:00
--  有这样一维的函数吗？求解 谢谢

Dim str as string =“aAbBcCdDeEfFgGhHiIjJkKlLmMnNoOpPqQrRxXtTuUvVwWsSyYzZ”

目的把str的字符串按2个字符格式插入表中

 
--  作者：有点色
--  发布时间：2017/6/2 11:03:00
--  
 什么意思？举例说明要做什么效果。
--  作者：limit_1982
--  发布时间：2017/6/2 11:39:00
--  

第一列

aA

bB

cC

dD

.

.

.

.

 
--  作者：limit_1982
--  发布时间：2017/6/2 11:43:00
--  
Dim str As String ="aAbBcCdDeEfFgGhHiIjJkKlLmMnNoOpPqQrRxXtTuUvVwWsSyYzZ"
For n As Integer =0 To str.length-1 Step 2
    Output.Show(str.SubString(n,2))
Next
--  作者：有点色
--  发布时间：2017/6/2 12:39:00
--  
Dim str As String ="aAbBcCdDeEfFgGhHiIjJkKlLmMnNoOpPqQrRxXtTuUvVwWsSyYzZ"
For n As Integer =0 To str.length-1 Step 2
    Dim nr As DataRow = DataTables("表A").AddNew
    nr("第一列") =str.SubString(n,2)
Next