手机网页中如何固定表格上方的标题行 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

如上图,用表格生成网页时比较快捷,但数据多时,在手机上滑动上方标题会不见了,如何在滑动屏幕时保留上方标题行一直可见,让其固定住,只能左右移动

谢谢!

weui框架没有办法。

试下这样

此主题相关图片如下：1.png

直接在html文件中增加是会,但在ft引用的weUI框架中如何增加DIV?

谢谢!

谢谢3楼提醒了，倒也是一个取巧的方法，添加2个table，一个显示标题，一个显示内容。参考

Select Case e.Path

Case "table.htm"

Dim wb As New WeUI

wb.AppendHTML("<style>#table2 td{width: 100px;word-break: break-all;}</style>",True)

With wb.AddTable("","Table1")

.ColWidth = "100px,100px,100px,100px,100px" '设置列宽

.head.AddRow("部门","姓名","年龄","电话","地址") '表头

End With

wb.InsertHTML("","<div id='div1' style='overflow-y:auto;height:300px'>")

With wb.AddTable("","Table2")

For i As Integer = 1 To 20

.body.AddRow("技术部","张三","36","110","中国北京") '数据

End With

wb.InsertHTML("","</div>")

e.WriteString(wb.Build)

End Select

或者：

Select Case e.Path

Case "table.htm"

Dim wb As New WeUI

wb.AppendHTML("<style>#table2 td{width: 100px;word-break: break-all;} #table2 thead{display:none}</style>",True)

With wb.AddTable("","Table1")

.ColWidth = "100px,100px,100px,100px" '设置列宽

.head.AddRow("产品","单价","数量","日期") '表头

End With

wb.InsertHTML("","<div id='div1' style='overflow-y:auto;height:300px'>")

With wb.AddTable("","Table2")

.Creat eFro mDataT able(Dat aTa bles("订单"),False,"客户='CS01'","日期 desc","产品","单价","数量 ","日期")

End With

wb.InsertHTML("","</div>")

e.WriteString(wb.Build)

End Select

[此贴子已经被作者于2020/10/15 12:20:24编辑过]

这样生成的表头如何与中间的体列宽同步,包括移动时?

注意上面代码里的样式，同步设置样式里的宽度即可

还是搞不定,请老师指点;想要的效果如下图:

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

Dim e As RequestEventArgs = args(0)

If e.PostValues.Count = 0 Then

Dim dr As DataRow = DataTables("dtbSet").Find("wintbN = '产品编码_主表' and showCols is not null")

Dim sqlcol,cw As String

Dim Cols As New List(of String) '列集合

If dr IsNot Nothing Then

Dim nms As String() = dr("showCols").split("|")

For i As Integer = 0 To nms.Length -1 Step 2

Cols.Add(nms(i))

sqlcol = sqlcol & nms(i) & ","

cw = cw & nms(i+1) & ","

If sqlcol > "" Then

sqlcol = sqlcol.trim(",")

End If

If cw > "" Then

cw = cw.trim(",")

End If

Dim cmd As New SQLCommand

cmd.ConnectionName = Mydata

cmd.CommandText = "SELECT TOP 10 " & sqlcol & " FROM 产品编码 ORDER BY sys_Mdate DESC" '查询最新修改的10行数据

Dim dt As DataTable = cmd.ExecuteReader()

Dim wb As New weui

wb.title = "产品编码"

wb.AddForm("","form1","pcode_table.htm")

wb.AppendHTML("<style>#table2 td{width:" & cw & ";word-break: break-all;} #table2 thead{display:none}</style>",True)

With wb.AddTable("","Table1")

.ColWidth = cw '设置列宽 -->cw是"50,50,60,70,35,80"这样的值

.head.AddRow(Cols)

End With

wb.InsertHTML("","<div id = 'div1' style = 'overflow-y:auto;buttom:20px'>") 'div距离屏幕底部20像素

With wb.AddTable("","Table2")

.CreateFromDataTable(dt,False,"","",Cols)

End With

wb.InsertHTML("","</div>")

With wb.AddButtonGroup("form1","btg1",True) '底部增一个确定按钮

.Add("btn1", "确定","submit")

End With

e.WriteString(wb.Build)

Else

'''''''''

End If

上面的代码应该怎么修改,实在不会,

谢谢!

老师,帮忙看下这个.谢谢!

主题：手机网页中如何固定表格上方的标题行