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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  步骤图模块的连接线不显示  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=175676)

--  作者：yifan3429
--  发布时间：2022/3/15 11:31:00
--  步骤图模块的连接线不显示

此主题相关图片如下：企业微信截图_20220315113131.png

Dim wb1 As New WeUI \'定义一个基于weui框架的网页生成器
wb1.AppendHTML("<link rel=\'stylesheet\' href=\'./weui/exweui.css\'/>",True)

Dim cnt As Integer
For Each dr As DataRow In DataTables("客户_客服备忘录").DataRows
    \'Output.Show(dr("时间"))
    \'ExWeUI.WebUI.AddStepGroup(ParentID, ID, Text, IsVertical, Size)
    cnt = cnt + 1
    \'With ExWeUI.WebUI.AddStepGroup("","step1","默认样式",True,1) \'横向
    With ExWeUI.WebUI.AddStepGroup("","step1","",True)
        With .AddStep("st01",cnt,dr("时间"))
            .IsCurrent = True
            .color = ExWeUI.ExWeuiColor.default
            .Description = dr("沟通内容")

        End With
        wb1.InsertHTML(.BuildHtml)
    End With

Next
e.WriteString(wb1.Build) \'生成网页
上面的代码不显示连线效果
帮助找不到连接线的属性怎么添加求指导

[此贴子已经被作者于2022/3/15 12:28:51编辑过]

--  作者：有点蓝
--  发布时间：2022/3/15 13:33:00
--
步骤要添加到同一个组里
Dim cnt As Integer
With ExWeUI.WebUI.AddStepGroup("","step1","",True)
For Each dr As DataRow In DataTables("客户_客服备忘录").DataRows
    \'Output.Show(dr("时间"))
    \'ExWeUI.WebUI.AddStepGroup(ParentID, ID, Text, IsVertical, Size)
    cnt = cnt + 1
With .AddStep("st01",cnt,dr("时间"))
            .IsCurrent = True
            .color = ExWeUI.ExWeuiColor.default
            .Description = dr("沟通内容")
        End With
Next
        wb1.InsertHTML(.BuildHtml)
End With
e.WriteString(wb1.Build) \'生成网页