'得到列名和类型
Dim t1 As Table = Tables("数据")
Dim zd As New Dictionary(Of Integer, String)
For Each dc As Col In t1.Cols
If dc.IsNumeric And zd.ContainsValue(dc.name) = False Then
zd.Add(dc.Index,dc.Name & "|Double" )
End If
Next
For Each dc As Col In t1.Cols
If dc.IsString And zd.ContainsValue(dc.name) = False Then
zd.Add(dc.Index,dc.Name & "|String" )
End If
Next
For Each dc As Col In t1.Cols
If dc.IsDate And zd.ContainsValue(dc.name) = False Then
zd.Add(dc.Index,dc.Name & "|Date")
End If
Next
For Each dc As Col In t1.Cols
If dc.IsBoolean And zd.ContainsValue(dc.name) = False Then
zd.Add(dc.Index,dc.Name & "|Boolean")
End If
Next
For k As Integer = 0 To zd.count -1
output.show("列名:" & zd(k).SubString(0,(zd(k).IndexOf("|"))))
output.show("类型:" & (zd(k).SubString((zd(k).IndexOf("|"))+1,(zd(k).length - 1 - zd(k).IndexOf("|")))))
Next
下面代码中的列名、类型替换成变量,请问如何设置?(临时表的Type不知如何定义变量)
Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("产品", Gettype(String), 32)
dtb.AddDef("数值1", Gettype(Double))
dtb.AddDef("数值2", Gettype(Double))
dtb.AddDef("数值3", Gettype(Double))
Tables("窗口1_Table1").DataSource = dtb.BuildDataSource
Tables("窗口1_Table1").AddNew()
Tables("窗口1_Table1").SetHeaderRowHeight(0)
Tables("窗口1_Table1").ExtendLastCol = True
Tables("数据").ExtendLastCol = True
For Each c As col In Tables("窗口1_Table1").Cols
c.Width = Tables("数据").cols(c.name).Width
Select Case c.name
Case "数值1","数值2","数值3"
Tables("窗口1_Table1").Current(c.name) = DataTables("数据").compute("Sum(" & c.name & ")")
End Select
Next
'Tables("窗口1_Table1").Current("产品") = "合计"
DataTables("窗口1_Table1").SysStyles("Normal").BackColor = SystemColors.Control
Tables("窗口1_Table1").Grid.ScrollBars= Windows.Forms.ScrollBars.None