- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]listView 只需要显示一行 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=187530)
-- 发布时间：2023/7/24 11:20:00
-- [求助]listView 只需要显示一行
老师，listView 只需要显示一列一行，不显示列列标题，只显示改行的内容，怎么处理？谢谢！
Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
lvw.StopRedraw() \'暂停绘制
Dim dr As Row = Tables("预防接种_table1").Current
If dr IsNot Nothing Then
Dim vr As WinForm.ListViewRow = lvw.Rows.Add() \'增加一行
Tables("预防接种_table1").Cols("告知书").Width = 1095
vr.Text = dr("告知书")
End If
lvw.ResumeRedraw() \'恢复绘制
[此贴子已经被作者于2023/7/24 11:30:21编辑过]
-- 发布时间：2023/7/24 11:55:00
--
改为列表模式：http://www.foxtable.com/webhelp/topics/2830.htm
-- 发布时间：2023/7/24 13:00:00
--
老师，这个行高、列宽怎么设置？如何让行高、列宽适应listView的大小？帮助里好像没找到。谢谢！
Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
lvw.StopRedraw() \'暂停绘制
lvw.View = ViewMode.List
lvw.View = ViewMode.Tile
lvw.TitleSize = New Size(738,398)
Dim dr As Row = Tables("开单明细").Current \' 预防接种_table1
If dr IsNot Nothing Then
Dim r As WinForm.ListViewRow = lvw.Rows.Add() \'增加一行
r.Text = dr("告知书")
End If
lvw.ResumeRedraw() \'恢复绘制
此主题相关图片如下：qq图片20230724125615.png
[此贴子已经被作者于2023/7/24 13:01:30编辑过]
-- 发布时间：2023/7/24 13:34:00
--
请上传实例说明
-- 发布时间：2023/7/24 15:01:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.foxdb |
-- 发布时间：2023/7/24 15:18:00
--
高度最大只能到256
