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

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  关于临时表  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=111814)

--  作者：煜杭
--  发布时间：2017/12/29 16:27:00
--  关于临时表
没有表属性和DrawCell事件可以写么？

--  作者：煜杭
--  发布时间：2017/12/29 16:36:00
--
Dim dtb As New DataTableBuilder()用这个生成的

--  作者：有点甜
--  发布时间：2017/12/29 16:39:00
--

以下是引用煜杭在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
--
动态增加列，不用重新打开项目，有其他方法么？

--  作者：有点甜
--  发布时间：2017/12/29 16:47:00
--

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

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

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

DataTables.UnLoad("表A")

DataTables.Load("表A")

--  作者：煜杭
--  发布时间：2017/12/29 17:03:00
--
老师，我是根据当前的日期，生成当月，次月，次次月共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
Next
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
Next
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
Next
dtb.Build()

--  作者：有点甜
--  发布时间：2017/12/29 17:05:00
--

可以开启全局表drawcell事件，写代码

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

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

--  作者：煜杭
--  发布时间：2017/12/29 17:06:00
--
现在要实现，今天之前的列，背景色为绿色，今天往后加15天为黄色，这样除了去全局表事件写，有其他方法没有，上面是动态生成的临时表Dim dtb As New DataTableBuilder("lsb")

--  作者：煜杭
--  发布时间：2017/12/29 17:18:00
--
麻烦老师帮忙一下，今天之前15天为绿色的要怎么写

--  作者：煜杭
--  发布时间：2017/12/29 17:18:00
--

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