主题：在临时表中的年龄数值分布怎么编码？

甜哥，统计政治面貌的年龄分布我做了一个临时表，数值分布不会，麻烦您了！

Dim dic As new Dictionary(of String, String)
For Each c As Col In Tables("人事档案基础信息").cols
    dic.add(c.caption, c.name)
Next
Dim fsd As New List(of Integer)
For Each r1 As Row In Tables("年龄段设置").Rows   
    If r1.Checked = False Then
        MessageBox.Show("请定义统计年龄段,并把无用的数据删除,否则系统将无法统计运行","提示")
        Return
    Else
        If r1.Checked Then
            fsd.add(r1("年龄段"))
        End If
    End If   
Next
If fsd.count> 0 Then
    fsd.sort
    Dim dtb As New DataTableBuilder("统计2")
    dtb.AddDef("工作单位", Gettype(String))
    dtb.AddDef("所在部门", Gettype(String))
    dtb.AddDef("政治面貌", Gettype(String))
    If fsd.count = 1 Then
        dtb.AddDef(fsd(0) & "岁以下", Gettype(Integer))
        dtb.AddDef(fsd(0) & "岁以上", Gettype(Integer))
    ElseIf fsd.count >= 2 Then
        dtb.AddDef(fsd(0) & "岁以下", Gettype(Integer))
        For fs As Integer = 0 To fsd.count-2
            dtb.AddDef(fsd(fs) & "岁-" & fsd(fs+1) & "岁", Gettype(Integer))
        Next
        dtb.AddDef(fsd(fsd.count-1) & "岁以上", Gettype(Integer))
    End If
    dtb.Build()
End If
Dim flt As String
Dim dt As DataTable =DataTables("人事档案基础信息")
Dim t1 As Table =Tables("统计2")
t1.StopRedraw
'统计编码

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

点击浏览该文件:管理项目1.table