Foxtable(狐表)用户栏目专家坐堂 → [求助]增加临时列ABCDE甚至到AA及ZZ


  共有5790人关注过本帖平板打印复制链接

主题:[求助]增加临时列ABCDE甚至到AA及ZZ

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


加好友 发短信
等级:九尾狐 帖子:2216 积分:18225 威望:0 精华:0 注册:2011/11/26 20:21:00
  发帖心情 Post By:2022/6/16 10:23:00 [只看该作者]

Dim dtb As New DataTableBuilder("CS")

For i As Integer = 1 To 100
    Dim x As String = ""
    Select i
        Case 1
            x = "A"
        Case 2
            x = "B"
        Case 3
            x = "C"
        Case 4  ‘如果要增加100列,不可能这么来啊’
    End Select 
    dtb.AddDef(x, GetType(String), 64)
Next 

dtb.Build()
MainTable = Tables("CS")

也就是10进制转26进制,把123456转为ABCDEF


 回到顶部
总数 17 1 2 下一页