以文本方式查看主题

-  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=130702)
--  作者：Rex1Chen
--  发布时间：2019/1/29 15:50:00
--  [求助]
有点甜 老师：

           你好！
在命令窗口执行下面的代码，
Dim dlg As New FolderBrowserDialog
dlg.SelectedPath = Vars("path")
If dlg.ShowDialog = DialogResult.Ok Then
    Vars("path") = dlg.SelectedPath
    For Each file As String In filesys .GetFiles(dlg.SelectedPath)
        Dim Value As String = filesys.GetName(file)
        If value.Contains("创建结构.xls")  Then
            Dim Book As New XLS.Book(file)
            Dim Sheet As XLS.Sheet = Book.Sheets(0)
            Dim a1 As String = sheet(0,0).Text
            Dim Builder As New ADOXBuilder
            Dim tbl As ADOXTable
            Builder.Open()
            tbl = Builder.NewTable(a1) \'创建表
            With tbl
                Dim i As Integer
                For i = 1 To 20
                    Dim a2 As String = sheet(i,0).text
                    Dim b2 As String = sheet(i,1).text
                    Dim c2 As String = sheet(i,2).text
                    If a2 = Nothing  Then
                        Continue For
                     End If   
                        .AddColumn(a2,ADOXType.String, c2)
                    
                Next
                Builder.AddTable(tbl) \'增加表
                Builder.Close()
            End With
        End If
    Next
End If
Syscmd.Project.Open(ProjectFile)

选择放入上面附件所在文件夹。为什么把ADOXType.String 换成b2的变量不能执行？
--  作者：有点甜
--  发布时间：2019/1/29 16:01:00
--  

不可以的，必须这样写，如

 

If b2 = "字符" Then

    .AddColumn(a2,ADOXType.String, c2)

ElseIf b2 = "整数" Then

    .AddColumn(a2,ADOXType.Integer, c2)

 

End If
--  作者：Rex1Chen
--  发布时间：2019/1/30 8:40:00
--  [求助]
好的，谢谢！