Foxtable(狐表) → 用户栏目 → 专家坐堂 → 整月显示


  共有3544人关注过本帖树形打印复制链接

主题：整月显示
美女呀，离线，留言给我吧！
nuoyan89
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：501 积分：3485 威望：0 精华：0 注册：2020/10/9 8:45:00 		整月显示  发帖心情 Post By：2023/7/28 11:43:00 [显示全部帖子]

老师，我窗口表中的控件1有自己显示月份，如图1，如图2的这些天数根据如下控件月份自动显示整月的日期，请帮忙看看，谢谢

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

图片点击可在新窗口打开查看此主题相关图片如下：2.jpg
图片点击可在新窗口打开查看
 回到顶部
美女呀，离线，留言给我吧！
nuoyan89
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：501 积分：3485 威望：0 精华：0 注册：2020/10/9 8:45:00 		  发帖心情 Post By：2023/7/28 12:32:00 [显示全部帖子]

老师，日期名字需要显示到窗口表（使用监控台_现存量）中，帮忙看看，谢谢

图片点击可在新窗口打开查看此主题相关图片如下：1.jpg
图片点击可在新窗口打开查看
 回到顶部
美女呀，离线，留言给我吧！
nuoyan89
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：501 积分：3485 威望：0 精华：0 注册：2020/10/9 8:45:00 		  发帖心情 Post By：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 
 回到顶部
美女呀，离线，留言给我吧！
nuoyan89
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：501 积分：3485 威望：0 精华：0 注册：2020/10/9 8:45:00 		  发帖心情 Post By：2023/7/28 14:41:00 [显示全部帖子]

老师，如果改列名的话这个就定死了，我想让这个列名根据窗口表中这个月份控件自动变动。

 回到顶部
美女呀，离线，留言给我吧！
nuoyan89
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：501 积分：3485 威望：0 精华：0 注册：2020/10/9 8:45:00 		  发帖心情 Post By：2023/7/28 15:11:00 [显示全部帖子]

是的，5楼的帮助想要和2楼的合并的话可以怎么调整呢？

 回到顶部
美女呀，离线，留言给我吧！
nuoyan89
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：501 积分：3485 威望：0 精华：0 注册：2020/10/9 8:45:00 		  发帖心情 Post By：2023/7/28 15:41: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
    Dim dtb As New DataTableBuilder("统计")
    dtb.AddDef("使用设备", GetType(String), 32)
    dtb.AddDef("设备名称", GetType(String), 32)
    dtb.AddDef("材料编码", GetType(String), 32)
    dtb.AddDef("材料描述", GetType(String), 32)
    dtb.AddDef(New Date(d.Year, d.Month, i))
    dtb.Build()
    Tables("使用监控台_现存量").DataSource = dtb.Build()
Next
 回到顶部
美女呀，离线，留言给我吧！
nuoyan89
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：501 积分：3485 威望：0 精华：0 注册：2020/10/9 8:45:00 		  发帖心情 Post By：2023/7/28 16:53:00 [显示全部帖子]

老师，我改成了以下这样的，我想让显示出来的日期为"yyyy-MM-dd",目前显示出来的如图1
Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("使用设备", GetType(String), 32)
dtb.AddDef("设备名称", GetType(String), 32)
dtb.AddDef("材料编码", GetType(String), 32)
dtb.AddDef("材料描述", GetType(String), 32)
dtb.AddDef("最小量", GetType(Double), 32)
dtb.AddDef("最大量", GetType(Double), 32)
dtb.AddDef("领用总量", GetType(Double), 32)
dtb.Build()
Dim s As String = e.form.controls("月份1").Text
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
  dtb.AddDef(i, GetType(Date))
Next
Tables("使用监控台_现存量").DataSource = dtb.Build()

图片点击可在新窗口打开查看此主题相关图片如下：1.jpg
图片点击可在新窗口打开查看
 回到顶部
美女呀，离线，留言给我吧！
nuoyan89
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：501 积分：3485 威望：0 精华：0 注册：2020/10/9 8:45:00 		  发帖心情 Post By：2023/7/28 17:15:00 [显示全部帖子]

老师，我把红色部分代码添加进去后，提示“使用监控台_现存量”这个表
Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("使用设备", GetType(String), 32)
dtb.AddDef("设备名称", GetType(String), 32)
dtb.AddDef("材料编码", GetType(String), 32)
dtb.AddDef("材料描述", GetType(String), 32)
dtb.AddDef("最小量", GetType(Double), 32)
dtb.AddDef("最大量", GetType(Double), 32)
dtb.AddDef("领用总量", GetType(Double), 32)
dtb.Build()
Dim s As String = e.form.controls("月份1").Text
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
    dtb.AddDef(i, GetType(Date))
Next
Tables("使用监控台_现存量").DataSource = dtb.Build()
Dim Cols1() As String = {"使用设备", "设备名称"}
Dim Cols2() As String = {"使用设备", "设备名称"}
For Each dr1 As DataRow In DataTables("设备状态表").sqlSelect("[使用设备] like '%A%' and [使用状态] = '使用中'")
    Dim dr2 As DataRow = DataTables("使用监控台_现存量").AddNew()
    For i As Integer = 0 To Cols1.Length - 1
        dr2(Cols2(i)) = dr1(Cols1(i))
    Next
Next
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 5 次数据查询