专家坐堂-按日期统计个数Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim tb As Table = Tables("表C")

Dim tb1 As Table = Tables(e.Form.Name & "_Table1")

\'----生成临时统计表------

Dim dtb As New DataTableBuilder("统计表11")

dtb.AddDef("下浮点",Gettype(Decimal))

dtb.AddDef("个数",Gettype(Double))

Dim lst As New List(Of String)

For Each cr As Row In tb.Rows

If cr.IsNull("开标日期") = False Then

Dim st As String = Format(cr("开标日期"),"yyyy-MM")

If lst.Contains(st) = False Then

lst.Add(st)

End If

\'Dim str = String.Join("|",lst.ToArray)

For Each v As String In lst

dtb.AddDef(v, Gettype(String))

dtb.Build(True)

tb1.DataSource = dtb.BuildDataSource

Dim ndr As Row

For i As Decimal = -2 To 1 Step 0.15

ndr = tb1.AddNew()

ndr("下浮点") = i

If i < 0 Then

ndr("个数") = tb.Compute("Count([开标日期])","风险控制价 >=" & i/100 & " And 风险控制价 < " & (i+0.15)/100)

ElseIf i > 0 Then

ndr("个数") = tb.Compute("Count([开标日期])","风险控制价 >" & (i-0.15)/100 & " And 风险控制价 <= " & i/100)

Else

ndr("个数") = tb.Compute("Count([开标日期])","风险控制价 = 0")

End If

ndr("2018-11") = tb.Compute("Count([风险控制价])","风险控制价 >=" & i/100 & " And 风险控制价 < " & (i+0.15)/100 & "and 开标日期 like \'%2018-11%\'" )

各日期列如：2018-12，2019-01等等

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目6.table

此主题相关图片如下：6666.png