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

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

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

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、是否完成列和完成时间列如图显示。

有点蓝

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

加好友

发短信

等级：超级版主帖子：106017 积分：539172 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/5/15 15:19:00 [只看该作者]

参考：http://foxtable.com/bbs/dispbbs.asp?BoardID=2&replyID=86506&ID=152609&skin=1

ycs5801

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

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

有点蓝

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

加好友

发短信

等级：超级版主帖子：106017 积分：539172 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/5/15 16:29:00 [只看该作者]

使用ajax功能提交数据获取内容，类似：http://www.foxtable.com/mobilehelp/topics/0110.htm

ycs5801

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | 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日

有点蓝

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

加好友

发短信

等级：超级版主帖子：106017 积分：539172 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/5/15 21:44:00 [只看该作者]

.AddCell(IIF(r("是否完成"), "已完成", "未完成"))

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

[此贴子已经被作者于2023/5/15 21:45:01编辑过]

ycs5801

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | 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属性

有点蓝

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

加好友

发短信

等级：超级版主帖子：106017 积分：539172 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/5/15 22:39:00 [只看该作者]

都是基础语法来的吧，多看看编程基础了

if r("是否完成")

.AddCell("已完成")

else

.AddCell("未完成","class='mark'")

end if

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

总数 12 1 2 下一页

主题：表格下显示内容