主题：列名的问题！

30楼的沟通内容，可以单独做成一个明细表。

Dim Builder As New ADOXBuilder
Builder.Open() '打开ADOXBuilder
With Builder.Tables("表A")
    .AddColumn("日期" ,ADOXType.DateTime) '增加日期型列
    .AddColumn("产品" ,ADOXType.String, 12) '增加字符型列,长度指定为12
    .AddColumn("客户" ,ADOXType.String, 20) '增加字符列,长度为20
    .AddColumn("数量" ,ADOXType.Integer) '增加整数型列
    .AddColumn("备注" ,ADOXType.Text) '增加备注列
End With
Builder.Close() '关闭ADOXBuilder

非常感谢老师对我在设计上的指点，我最初的想法是类似甘特图一样，对沟通的过程在表上一看就很清楚。所
此主题相关图片如下：1645.gif

以这样设计！

  代码这样写，但是foxtable对于内部表有253列的限制，除非你用Sqlserver数据。

 

 不然你就用行的方式，不要动态增加列啊。

 

Dim years As String = "2016"
Dim Builder As New ADOXBuilder
Builder.Open() '打开ADOXBuilder
With Builder.Tables("信息备注表")
    For Each ary As String In years.split(",")
        Dim year As Integer = ary.SubString(0, 4)
        Dim d As Date = new Date(year, 1, 1)
        Do until d.Year <> year
           
            Dim cname As String = "日期_" & d.Year & "年" & d.Month & "月_" & d.Day
            If DataTables("信息备注表").DataCols.Contains(cname) = False Then
                .AddColumn(cname ,ADOXType.DateTime) '增加日期型列
            End If
            d = d.AddDays(1)
        Loop
    Next
End With
Builder.Close() '关闭ADOXBuilder
DataTables.Unload("信息备注表")
DataTables.Load("信息备注表")

代码测试出错

 不能添加多余 253列，多了就出错，除非是Sqlserver数据库。

 

 所以你不能这样用。

由此想问下，狐表，行不会也有限制吧

 行不会限制，但是数据库有2G容量的控制，大致就是几百万行的样子。

 

 建议改用外部数据源Sqlserver

非常感谢“大红袍”老师的细心指导！