主题：制表标题栏问题求助？

 呃，没有快捷的方法，动态增加列，1年要十几秒

 TextChanged 事件

If e.Sender.Text > "" Then
    DataTables("客户联系情况记录").StopRedraw
    DataTables("客户联系情况记录").Fill("select * from {客户联系情况记录}", False)
    For Each ary As String In e.Sender.Text.Split(",")
        Dim year As Integer = ary.SubString(0, 4)
        Dim d As Date = new Date(year, 1, 1)
        Do until d.Year <> year
            DataTables("客户联系情况记录").DataCols.Add(d.Year & "年" & d.Month & "月_" & d.Day, Gettype(Integer))
            d = d.AddDays(1)
        Loop
    Next
    DataTables("客户联系情况记录").ResumeRedraw
End If