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

创建表后绑定窗口即可：http://www.foxtable.com/webhelp/topics/1909.htm

老师，红色部分帮忙看看，谢谢

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()

按帮助把语法写完整

此主题相关图片如下：1.png

另外把创建表的代码也放到循环里合适吗？有30天就创造30个临时表！！

认真看看帮助最后一段代码，学学怎么在循环里添加列，而不是所有东西都放到循环里

老师，我改成了以下这样的，我想让显示出来的日期为"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))

Tables("使用监控台_现存量").DataSource = dtb.Build()

此主题相关图片如下：1.jpg

格式化一下日期值：http://www.foxtable.com/webhelp/topics/0362.htm

另外绑定DataSource的用法请再认真看看帮助：http://www.foxtable.com/webhelp/topics/1909.htm

老师，我把红色部分代码添加进去后，提示“使用监控台_现存量”这个表

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))

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))

认真看看16楼帮助

主题：整月显示