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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 表格下显示内容

共有1505人关注过本帖树形打印复制链接主题：表格下显示内容

ycs5801

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

加好友

发短信

等级：四尾狐帖子：911 积分：6617 威望：0 精华：0 注册：2009/6/24 9:44:00

表格下显示内容 发帖心情

Post By：2023/5/15 15:15:00 [显示全部帖子]

With wb.AddTable("", "Table1")

.Alternate = 3

.RowHead = 1

.ColWidth = "12px"

Dim nms() As String = {"", "责任人", "是否完成", "完成时间"}

.Head.AddRow(nms)

Dim cnt As Integer

For Each r As DataRow In DataTables("事项进度").Select("主键编号 =" & name1)

cnt = cnt + 1

With .Body.AddRow(cnt, r("录入人员"), r("是否完成"))

.AddCell(Format(r("录入时间"), "yyyy年MM月dd日"))

End With

此主题相关图片如下：2023-05-15_150533.jpg

1、我想点那个表格，下边自动会显示出r行的，完成进度列的内容。

2、是否完成列和完成时间列如图显示。

ycs5801

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

加好友

发短信

等级：四尾狐帖子：911 积分：6617 威望：0 精华：0 注册：2009/6/24 9:44:00

Post By：2023/5/15 16:12:00 [显示全部帖子]

With .Body.AddRow(cnt, r("录入人员"), r("是否完成"))
                        .Primarykey = r("_Identify") '设置主键

                        .AddCell(Format(r("录入时间"), "yyyy年MM月dd日"))
                    End With

我现在已经设置了每行的主键，但是我需求的完成进度列内容没有显示在表格中，我怎样能点击行后，通过该行的主键，找到该行完成进度列的内容呢？

ycs5801

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

加好友

发短信

等级：四尾狐帖子：911 积分：6617 威望：0 精华：0 注册：2009/6/24 9:44:00

Post By：2023/5/15 20:58:00 [显示全部帖子]

With .Body.AddRow(cnt, r("录入人员"), r("是否完成"))

.AddCell(Format(r("录入时间"), "yyyy年MM月dd日"))

End With

这个是否完成的地方，如果是false，我想显示成未完成，如果是true我想显示成已完成，时间是空我就显示空，需要怎么改下？

ycs5801

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

加好友

发短信

等级：四尾狐帖子：911 积分：6617 威望：0 精华：0 注册：2009/6/24 9:44:00

Post By：2023/5/15 21:15:00 [显示全部帖子]

.AddCell(Format(r("是否完成"), IIF(r("是否完成"), "已完成", "未完成")))
.AddCell(Format(r("录入时间"), IIf(r("录入时间") <> "", "yyyy年MM月dd日", "")))

这样改，上边那个没问题，下边这个提示我字符串到data转换无效

ycs5801

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

加好友

发短信

等级：四尾狐帖子：911 积分：6617 威望：0 精华：0 注册：2009/6/24 9:44:00

Post By：2023/5/15 21:37:00 [显示全部帖子]

.AddCell(Format(r("是否完成"), IIF(r("是否完成"), "已完成", "未完成")))
.AddCell(Format(r("录入时间"), IIf(r("录入时间") IsNot Nothing, "yyyy年MM月dd日","")))

不报错了，但是日期这个地方，如果是空值，还是显示0001年01月01日

ycs5801

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

加好友

发短信

等级：四尾狐帖子：911 积分：6617 威望：0 精华：0 注册：2009/6/24 9:44:00

Post By：2023/5/15 22:10:00 [显示全部帖子]

.AddCell(IIF(r("是否完成"), "已完成", "未完成")) 这句能不能如果是未完成就变成红色，类似下边这样，需要怎么改？

wb.AppendHTML("<style>.mark{background-color:red; color:white;}</style>", True) '添加样式
.AddCell("李四","class='mark'") '第二个参数用于设置单元格的Attribute属性

ycs5801

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

加好友

发短信

等级：四尾狐帖子：911 积分：6617 威望：0 精华：0 注册：2009/6/24 9:44:00

Post By：2023/5/16 8:15:00 [显示全部帖子]

这样只是红了一个格，能不能整行红？而且现在如果点击这个格子，这个红色会消失

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

主题：表格下显示内容