以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  整月显示  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=187577)

--  作者:nuoyan89
--  发布时间:2023/7/28 11:43:00
--  整月显示
老师,我窗口表中的控件1有自己显示月份,如图1,如图2的这些天数根据如下控件月份自动显示整月的日期,请帮忙看看,谢谢

图片点击可在新窗口打开查看此主题相关图片如下:1.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:2.jpg
图片点击可在新窗口打开查看



--  作者:有点蓝
--  发布时间:2023/7/28 12:05:00
--  
Dim s As String = "202307"
Dim d As Date = CDate(s.Insert(4, "-") & "-01")
Dim d2 As Date = New Date(d.Year, d.Month, Date.DaysInMonth(d.Year, d.Month))
For i As Integer = d.Day To d2.Day
    Output.Show(New Date(d.Year, d.Month, i))
Next 

--  作者:nuoyan89
--  发布时间:2023/7/28 12:32:00
--  
老师,日期名字需要显示到窗口表(使用监控台_现存量)中,帮忙看看,谢谢

图片点击可在新窗口打开查看此主题相关图片如下:1.jpg
图片点击可在新窗口打开查看

--  作者:SbFox
--  发布时间:2023/7/28 13:27:00
--  
参考 http://www.foxtable.com/webhelp/topics/1428.htm
--  作者:有点蓝
--  发布时间:2023/7/28 13:36:00
--  
建议用这个生成窗口临时表:http://www.foxtable.com/webhelp/topics/0679.htm
--  作者:nuoyan89
--  发布时间:2023/7/28 13:44:00
--  
就是想把红色部分改成窗口表的名字,但是我改出来是错的:   DataTables("使用监控台_现存量").DataCols = (New Date(d.Year, d.Month, i))
Dim s As String = "202307"
Dim d As Date = CDate(s.Insert(4, "-") & "-01")
Dim d2 As Date = New Date(d.Year, d.Month, Date.DaysInMonth(d.Year, d.Month))
For i As Integer = d.Day To d2.Day
    Output.Show(New Date(d.Year, d.Month, i))
Next 

--  作者:有点蓝
--  发布时间:2023/7/28 13:52:00
--  
只能改标题名:http://www.foxtable.com/webhelp/topics/1275.htm,但是3楼图片只有10个列,明显是不够的。建议认真理解一下5楼
--  作者:nuoyan89
--  发布时间:2023/7/28 14:41:00
--  
老师,如果改列名的话这个就定死了,我想让这个列名根据窗口表中这个月份控件自动变动。
--  作者:有点蓝
--  发布时间:2023/7/28 15:01:00
--  
搞大错了,改列名才是定死了,改标题才是灵活的。也没有人天天把数据库列名改来改去的,这才是真坑
--  作者:nuoyan89
--  发布时间:2023/7/28 15:11:00
--  
是的,5楼的帮助想要和2楼的合并的话可以怎么调整呢?