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

没有表属性和DrawCell事件可以写么？

Dim dtb As New DataTableBuilder()用这个生成的

以下是引用煜杭在2017/12/29 16:36:00的发言：
Dim dtb As New DataTableBuilder()用这个生成的

需要去写全局表事件

http://www.foxtable.com/webhelp/scr/0671.htm

http://www.foxtable.com/webhelp/scr/2628.htm

动态增加列，不用重新打开项目，有其他方法么？

以下是引用煜杭在2017/12/29 16:45:00的发言：
动态增加列，不用重新打开项目，有其他方法么？

你用这种增加列？ http://www.foxtable.com/webhelp/scr/2122.htm

那你可以 Unload 表格，然后重 Load 表格，如

DataTables.UnLoad("表A")

DataTables.Load("表A")

老师，我是根据当前的日期，生成当月，次月，次次月共3个月的动态表

Dim y1 As String = Date.Now.Year

Dim yf1 As String = Date.Now.Month

Dim yf2 As String = Date.Now.AddMonths(1).Month

Dim y2 As String = Date.Now.AddMonths(1).Year

Dim yf3 As String = Date.Now.AddMonths(2).Month

Dim y3 As String = Date.Now.AddMonths(2).Year

yf1 = yf1.PadLeft(2,"0")

yf2 = yf2.PadLeft(2,"0")

yf3 = yf3.PadLeft(2,"0")

Dim ts1 As Integer = Date.DaysInMonth(y1,yf1)

Dim ts2 As Integer = Date.DaysInMonth(y2,yf2)

Dim ts3 As Integer = Date.DaysInMonth(y3,yf3)

Dim dtb As New DataTableBuilder("lsb")

dtb.AddDef("产品类别", Gettype(String), 30)

dtb.AddDef("产品编码", Gettype(String), 30)

dtb.AddDef("产品名称", Gettype(String), 50)

For i As Integer = 1 To ts1

If i<10

dtb.AddDef(y1 & yf1 & "_0" & i, Gettype(Integer))

Else

dtb.AddDef(y1 & yf1 & "_" & i, Gettype(Integer))

End If

For i As Integer = 1 To ts2

If i<10

dtb.AddDef(y2 & yf2 & "_0" & i, Gettype(Integer))

Else

dtb.AddDef(y2 & yf2 & "_" & i, Gettype(Integer))

End If

For i As Integer = 1 To ts3

If i<10

dtb.AddDef(y3 & yf3 & "_0" & i, Gettype(Integer))

Else

dtb.AddDef(y3 & yf3 & "_" & i, Gettype(Integer))

End If

dtb.Build()

现在要实现，今天之前的列，背景色为绿色，今天往后加15天为黄色，这样除了去全局表事件写，有其他方法没有，上面是动态生成的临时表Dim dtb As New DataTableBuilder("lsb")

麻烦老师帮忙一下，今天之前15天为绿色的要怎么写

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目2.foxdb

主题：关于临时表