[求助]表关样式 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

关闭退出项目，删除项目所在的文件夹里的bin目录，然后重启项目试试。

我这样测试没有问题。

Dim Values() As String = {"总分"}

Dim s1() As String = New String() {"总分"}

Dim lm1s() As String = {"年级","类别","单位代码"}

Dim lm2s() As String = {"单位","项目"}

Dim km1s() As String = {"语文","数学","英语"}

Dim km2s() As String = {"物理","化学","生物","政治","历史","地理"}

Dim tjnj As String = "2020"

Dim tjlb As String = "4期"

Dim bm As String = "高" & tjnj & "级" & tjlb & "市级重点有效分及贡献率统计表"

Dim dtb As New DataTableBuilder(bm)

For Each lm1 As String In lm1s

dtb.AddDef(""& lm1 &"",Gettype(String),8)

For Each lm2 As String In lm2s

dtb.AddDef(""& lm2 &"",Gettype(String),8)

Dim km2s222() As String = {"高理","高文"}

For Each bb As String In km2s222

dtb.AddDef("总分"& bb ,Gettype(Double),"","总分上线_"& bb & "")

For Each km1 As String In km1s

For Each bb As String In km2s222

dtb.AddDef( bb & km1 ,Gettype(Double),"", km1 &"_"& bb )

For Each km2 As String In km2s

dtb.AddDef(""& km2 &"",Gettype(Double),"")

dtb.Build()

主题：[求助]表关样式