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


  共有2635人关注过本帖树形打印复制链接

主题:点击表格哪行的编号

帅哥哟,离线,有人找我吗?
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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106209 积分:540168 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/7/24 9:04:00 [只看该作者]

代码?

 回到顶部
帅哥哟,离线,有人找我吗?
qazlinle6
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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/>")
Next

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106209 积分:540168 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/7/24 9:51:00 [只看该作者]

哪个是标题?哪个是内容?完整代码?犹抱琵琶半遮面么

 回到顶部
帅哥哟,离线,有人找我吗?
qazlinle6
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106209 积分:540168 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/7/24 10:07:00 [只看该作者]

weui做不到下面这种格式

字体参考
With wb.AddPreview("","pv" & r("_Identify"),"编号","<span style='font-family:黑体;font-size:20px'>" & r("编号") & "</span>")


 回到顶部
帅哥哟,离线,有人找我吗?
qazlinle6
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1503 积分:10158 威望:0 精华:0 注册:2013/6/8 16:19:00
  发帖心情 Post By:2021/7/24 10:11:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:82f20eef8abfd4dc1291f26d713acb6.jpg
图片点击可在新窗口打开查看



这样显示不行吗

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106209 积分:540168 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/7/24 10:16:00 [只看该作者]

weui做不到下面这种格式。

 回到顶部
帅哥哟,离线,有人找我吗?
qazlinle6
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | 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



像这个照片改不行吗


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106209 积分:540168 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/7/24 10:34:00 [只看该作者]

没有办法

 回到顶部
总数 16 1 2 下一页