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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 点击表格哪行的编号

共有2689人关注过本帖树形打印复制链接主题：点击表格哪行的编号

qazlinle6

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

加好友

发短信

等级：七尾狐帖子：1503 积分：10158 威望：0 精华：0 注册：2013/6/8 16:19:00

点击表格哪行的编号 发帖心情

Post By：2021/7/23 17:44:00 [显示全部帖子]

此主题相关图片如下：qq浏览器截图20210723173847.png

可不可以把标题放上面，内容放下面

[此贴子已经被作者于2021/7/24 1:37:14编辑过]

qazlinle6

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

加好友

发短信

等级：七尾狐帖子：1503 积分：10158 威望：0 精华：0 注册：2013/6/8 16:19:00

Post By：2021/7/24 9:36:00 [显示全部帖子]

With wb.AddPreview("","pv" & r("_Identify"),"编号",r("编号"))

'With wb.AddPreview("","pv1","编号",pr("编号"))

.AddItem("对账品名:" & cp,"金重:" & r("金重"))

'.AddItem("金重",pr("金重"))

.AddItem("标签价格",r("标签价格"))

.Addbutton("操作", "", 1, "")

End With

wb.AppendHTML("<br/>")

qazlinle6

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

加好友

发短信

等级：七尾狐帖子：1503 积分：10158 威望：0 精华：0 注册：2013/6/8 16:19:00

Post By：2021/7/24 9:57:00 [显示全部帖子]

此主题相关图片如下：qq浏览器截图20210724095130.png

此主题相关图片如下：82f20eef8abfd4dc1291f26d713acb6.jpg

下载信息 [文件大小：下载次数： ]
点击浏览该文件:新建文本文档.txt

上面的像下面那样显示，编号那个字体可以改不

[此贴子已经被作者于2021/7/24 9:58:39编辑过]

qazlinle6

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

加好友

发短信

等级：七尾狐帖子：1503 积分：10158 威望：0 精华：0 注册：2013/6/8 16:19:00

Post By：2021/7/24 10:11:00 [显示全部帖子]

此主题相关图片如下：82f20eef8abfd4dc1291f26d713acb6.jpg

这样显示不行吗

qazlinle6

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

加好友

发短信

等级：七尾狐帖子：1503 积分：10158 威望：0 精华：0 注册：2013/6/8 16:19:00

Post By：2021/7/24 10:20:00 [显示全部帖子]

改变标题位置

Uploader组件有个TextPosition属性，用于设置标题位置，0表示标题靠左，1表示标题靠上，默认为1。

HttpRequet事件代码：

Select Case e.Path
    Case "test.htm"
        Dim wb As New weui
        wb.AddForm("","form1","test.htm")
        With wb.AddInputGroup("form1","ipg1","客户资料")
            .AddInput("姓名","姓名","Text").value = "舒淇"
            .AddInput("年龄","年龄","number").Value = "28"
            .AddInput("日期","日期","date").value = #10/12/2012#
            With .AddUploader("up1","照片",True)
                .TextPosition = 0 '标题靠左
                .AddImage("./images/shuqi1.jpg")
                .AddImage("./images/shuqi2.jpg")
            End With
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "确定", "submit")
        End With
        e.WriteString(wb.Build) '生成网页
End Select