以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请甜老师帮忙看下我错在哪里  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=61370)
--  作者：affixed
--  发布时间：2014/12/11 12:52:00
--  请甜老师帮忙看下我错在哪里
Dim jh1 As new List(of String)
Dim jh2 As new List(of String)
For Each dc As DataCol In DataTables("orderList").DataCols
    jh1.Add(dc.Caption)
    If dc.IsNumeric = True Then
        jh2.Add("Double")
    ElseIf dc.IsString = True Then
        jh2.Add("string")
    ElseIf dc.IsDate = True Then
        jh2.Add("Date")
    ElseIf dc.IsBoolean = True Then
        jh2.Add("Boolean")
    Else
        Return
    End If
Next

Dim i As Integer
For i = 0 To jh1.Count Step 1
    Tables("主窗口_cgTblKj").DataTable.DataCols.Add(jh1(i),Gettype(jh2(i)))
    i = i + 1
Next

保存时提示如下：
---------------------------
错误
---------------------------
编译错误:未定义类型“jh2”。



错误代码：Tables("主窗口_cgTblKj").DataTable.DataCols.Add(jh1(i),Gettype(jh2(i)))
---------------------------
确定   
---------------------------
--  作者：有点甜
--  发布时间：2014/12/11 14:10:00
--  

 For Each dc As DataCol In DataTables("表A").DataCols
    If dc.IsNumeric = True Then
        Tables("表D").DataTable.DataCols.add(dc.Name, Gettype(Double))
    ElseIf dc.IsString = True Then
        Tables("表D").DataTable.DataCols.add(dc.Name, Gettype(String))
    ElseIf dc.IsDate = True Then
        Tables("表D").DataTable.DataCols.add(dc.Name, Gettype(Date))
    ElseIf dc.IsBoolean = True Then
        Tables("表D").DataTable.DataCols.add(dc.Name, Gettype(Boolean))
    End If
Next