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)))
---------------------------
确定
---------------------------
加好友 
发短信
Post By：2014/12/11 12:52:00 [显示全部帖子]
