Dim dtb As New DataTableBuilder("统计")Dim idd As String = "string"Dim Tp As TypeSelect Case idd Case "string" tp= Gettype(String) Case "double" tp = Gettype(Double)End Selectdtb.AddDef("列名", tp, 20)dtb.Build()MainTable= Tables("统计")