专家坐堂-[求助]为什么列名改不了呢？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]为什么列名改不了呢？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=17309)

--  作者：新福星
--  发布时间：2012/3/9 14:22:00
--  [求助]为什么列名改不了呢？

如下程序，希望在查完数据后，把Table24104列标题改了。可实际上是改不了的,如何解决？
        Dim dp3 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker3")
        Dim dp4 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker4")
        dp4.value=Date.Today
        dp3.value=Date.Today.AddDays(-30)
        DataTables("XXXX").LoadFilter="标识=\'QA\' AND 日期>=#" & dp3.value & "# And 日期<=#" & dp4.value & “#"
        DataTables("XXXX").Loadtop=""
        DataTables("XXXX").Load
        Tables(e.Form.Name & "_Table2").AutoSizeCols

        Tables(e.Form.Name & "_Table2").Cols("制程编号").Caption="交单编号"
        Tables(e.Form.Name & "_Table2").Cols("QC板数").Caption="QA板数"
        Tables(e.Form.Name & "_Table2").Cols("QC批次").Caption="QA批次"

--  作者：狐狸爸爸
--  发布时间：2012/3/9 14:27:00
--

Tables(e.Form.Name & "_Table2").Cols("制程编号").Caption="交单编号"
Tables(e.Form.Name & "_Table2").Cols("QC板数").Caption="QA板数"
Tables(e.Form.Name & "_Table2").Cols("QC批次").Caption="QA批次"

Tables(e.Form.Name & "_Table2").BuildHeader