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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  表格下显示内容  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=186606)

--  作者：ycs5801
--  发布时间：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
Next

End With

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

1、我想点那个表格，下边自动会显示出r行的，完成进度列的内容。
2、是否完成列和完成时间列如图显示。

--  作者：有点蓝
--  发布时间：2023/5/15 15:19:00
--
参考：http://foxtable.com/bbs/dispbbs.asp?BoardID=2&replyID=86506&ID=152609&skin=1

--  作者：ycs5801
--  发布时间：2023/5/15 16:12:00
--

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

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



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

--  作者：有点蓝
--  发布时间：2023/5/15 16:29:00
--
使用ajax功能提交数据获取内容，类似：http://www.foxtable.com/mobilehelp/topics/0110.htm

--  作者：ycs5801
--  发布时间：2023/5/15 20:58:00
--
With .Body.AddRow(cnt, r("录入人员"), r("是否完成"))
.AddCell(Format(r("录入时间"), "yyyy年MM月dd日"))

End With

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

--  作者：ycs5801
--  发布时间：2023/5/15 21:15:00
--

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


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

--  作者：ycs5801
--  发布时间：2023/5/15 21:37:00
--

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

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

--  作者：有点蓝
--  发布时间：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
--  发布时间：2023/5/15 22:10:00
--

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

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

--  作者：有点蓝
--  发布时间：2023/5/15 22:39:00
--
都是基础语法来的吧，多看看编程基础了

if r("是否完成")
.AddCell("已完成")
else
.AddCell("未完成","class=\'mark\'")
end if