主题：数据表滚动条上方增加统计行

9楼的文件和这个有差别吗？

Table2中的列隐藏时,Table1对应的列也隐藏,显示时也跟着显示;

 

Table2中水平滚动条移动,Table1对应的列也跟随移动.(即列对齐)

 

Table1中增加1列,宽度与Table2序号列对应.

 

请问如何设置?

 

 

 

 

滚动和移动都可以：

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目43.zip

 

至于隐藏列，没有跟踪功能，只需在生成表的时候，不生成隐藏列即可，因为这种录入，都不会在录入过程隐藏列的。

 

既然是编码，你想怎么样都是可以的。

 

Table1中增加1列,宽度与Table2序号列对应.

 

请问如何设置?

Table1控件显示行号列的属性设置为True即可。

能只显示空格而不显示序号吗？

行号没办法关闭，你可以自己增加一个普通列，宽度设置为合适的，将其移到第一列即可。

 

 

'得到列名和类型
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

 

 

下面代码中的列名、类型替换成变量，请问如何设置？（临时表的Ｔype不知如何定义变量）

 

 

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

 

 

老大看一下如何设置，谢谢！

你不能这样吗：

 

Dim dtb As New DataTableBuilder("统计")
For Each dc As DataCol In DataTables("订单").DataCols
    If dc.IsString
        dtb.AddDef(dc.name, Gettype(String))
    ElseIf dc.IsDate
        dtb.AddDef(dc.name, Gettype(Date))
    ElseIf dc.IsNumeric
        dtb.AddDef(dc.name, Gettype(Double))
    ElseIf dc.IsBoolean
        dtb.AddDef(dc.name, Gettype(Boolean))
    End If
Next
dtb.Build()