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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 数据问题？

共有1048人关注过本帖树形打印复制链接主题：数据问题？

lgz518

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1319 积分：9055 威望：0 精华：0 注册：2019/6/13 9:57:00

数据问题？

Post By：2025/1/6 9:41:00 [显示全部帖子]

以根据已知数据展示？如何用代码实现？

[此贴子已经被作者于2025/1/11 22:17:54编辑过]

lgz518

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1319 积分：9055 威望：0 精华：0 注册：2019/6/13 9:57:00

Post By：2025/1/6 11:12:00 [显示全部帖子]

Functions.Execute("BuildGanttTable")

With Tables("窗口2_Table2").Grid

.FocusRect = C1.Win.C1FlexGrid.FocusRectEnum.None '不显示焦点框

.HighLight = C1.Win.C1FlexGrid.HighLightEnum.Never '不高亮显示选定区

.SelectionMode = C1.Win.C1FlexGrid.SelectionModeEnum.Cell '每次只显示一个单元格

End With

[此贴子已经被作者于2025/1/11 22:18:12编辑过]

lgz518

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1319 积分：9055 威望：0 精华：0 注册：2019/6/13 9:57:00

Post By：2025/1/6 11:51:00 [显示全部帖子]

HTTP/1.1 500 服务器错误

[此贴子已经被作者于2025/1/11 9:25:04编辑过]

lgz518

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1319 积分：9055 威望：0 精华：0 注册：2019/6/13 9:57:00

Post By：2025/1/6 13:57:00 [显示全部帖子]

过期升级不了，请老师贴代码，谢谢

lgz518

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1319 积分：9055 威望：0 精华：0 注册：2019/6/13 9:57:00

Post By：2025/1/6 17:33:00 [显示全部帖子]

请有最新版大神，帮转6楼的实例为2022版，谢谢

lgz518

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1319 积分：9055 威望：0 精华：0 注册：2019/6/13 9:57:00

Post By：2025/1/7 16:02:00 [显示全部帖子]

Builder.Adddef("编号", GetType(String), 16)

Builder.Adddef("项目ID", GetType(String), 16)

Builder.Adddef("项目", GetType(String), 16)

加上红代码，后面的代码如何？

Dim nm As String = dt.Year & "年_" & dt.Month & "月_" & dt.Day & "_" & ss(dt.DayOfWeek)

Builder.Adddef(nm & "_计划", GetType(Integer))

Builder.Adddef(nm & "_完成", GetType(Integer))

dt = dt.Adddays(1)

If dt > Enddate Then

Exit Do

End If

Loop

Tables("窗口2_Table2").DataSource = Builder.buildDataSource

[此贴子已经被作者于2025/1/11 22:19:59编辑过]

lgz518

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1319 积分：9055 威望：0 精华：0 注册：2019/6/13 9:57:00

Post By：2025/1/7 17:05:00 [显示全部帖子]

Dim r As Row

For Each a As String In tbl.DataTable.GetValues("编号，项目ID，项目")

r = Tables("窗口2_Table2").AddNew

r("编号")=dr("编号")

r("项目ID")=dr("项目ID")

r("项目") = a

For Each dr As DataRow In tbl.DataTable.Select("编号='" & dr("编号") & "'" AND "项目ID='" & dr("项目ID")& "'" AND "项目='" & a & "'" )

dt = dr("日期")

r(dt.Year & "年_" & dt.Month & "月_" & dt.Day & "_" & ss(dt.DayOfWeek)& "_计划") = dr("计划数")

是这样改？

lgz518

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1319 积分：9055 威望：0 精华：0 注册：2019/6/13 9:57:00

Post By：2025/1/8 9:53:00 [显示全部帖子]

执行后，二列分类时，合在一行显示，不直观，如何实现不同分类，在不同行显示？

[此贴子已经被作者于2025/1/11 22:19:02编辑过]

lgz518

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1319 积分：9055 威望：0 精华：0 注册：2019/6/13 9:57:00

Post By：2025/1/8 11:59:00 [显示全部帖子]

执行下面代码，发生上面图的问题

Dim tbl As Table = Tables("表A")

Dim r As Row

For Each a As String In tbl.DataTable.GetValues("项目")

r = Tables("窗口2_Table2").AddNew

r("项目") = a

For Each dr As DataRow In tbl.DataTable.Select("项目='" & a & "'")

r("编号") =dr("编号")

dt = dr("日期")

r(dt.Year & "年_" & dt.Month & "月_" & dt.Day & "_" & ss(dt.DayOfWeek)& "_计划") = dr("计划数")

[此贴子已经被作者于2025/1/11 9:26:05编辑过]

lgz518

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1319 积分：9055 威望：0 精华：0 注册：2019/6/13 9:57:00

Post By：2025/1/8 13:47:00 [显示全部帖子]

Dim Arys As List(Of String())

Arys = DataTables("窗口2_Table2").GetValues("编号|项目", "", "编号,项目")

For Each Ary As String() In Arys

' Output.Show(Ary(0) & "|" & Ary

Ary = Tables("窗口2_Table2").AddNew

Ary("编号") = (Ary(0) & "|" & Ary

For Each dr As DataRow In tbl.DataTable.Select("编号='" & a & "'")

' For Each dr As DataRow In tbl.DataTable.Select("编号='" & a("编号") & "'" And "项目='" & a("项目") & "'")

dt = dr("日期")

不会改，请老师帮改，谢谢

下一主题 >> << 上一主题

总数 15 1 2 下一页

主题：数据问题？