请甜老师帮忙看下我错在哪里 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请甜老师帮忙看下我错在哪里

共有2841人关注过本帖树形打印复制链接主题：请甜老师帮忙看下我错在哪里

affixed

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：597 积分：4974 威望：0 精华：0 注册：2012/12/27 12:34:00

请甜老师帮忙看下我错在哪里 发帖心情

Post By：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

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

保存时提示如下：

---------------------------

错误

---------------------------

编译错误:未定义类型“jh2”。

错误代码：Tables("主窗口_cgTblKj").DataTable.DataCols.Add(jh1(i),Gettype(jh2(i)))

---------------------------

确定

---------------------------

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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

下一主题 >> << 上一主题

主题：请甜老师帮忙看下我错在哪里