以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  问个代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=116910)

--  作者:blackzhu
--  发布时间:2018/4/2 16:10:00
--  问个代码
我有一串字符串  a,b,c,d,e,f,g,h,i,j  不固定总数不能超过30个


我有一个临时表

A列   B列  C列 D列  E列  共5列 固定新增5行
a       g
b       h
d       i
e       j
f

怎么写这个代码

--  作者:blackzhu
--  发布时间:2018/4/2 16:29:00
--  
怎么写?
--  作者:有点甜
--  发布时间:2018/4/2 16:33:00
--  
Dim s As String = "abcdefghijkl"
Dim l As Integer = 0
For i As Integer = 0 To s.length-1
    Dim t = (i) \\ 5
    If i Mod 5 = 0 Then
        l = 0
    Else
        l += 1
    End If
    output.show(l & t)
    Tables("表a")(l, t) = s(i)
Next

--  作者:blackzhu
--  发布时间:2018/4/2 16:36:00
--  
硬塞? 我学习下
--  作者:wei0769
--  发布时间:2018/4/2 20:38:00
--  
用一个  集合  记录   随机选择的字母 ,如果集合里没有,就增加到表;如果集合里有这个字母,得新选择,直到结束。
[此贴子已经被作者于2018/4/2 20:39:42编辑过]