- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]列表宽度 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=79056)
-- 发布时间：2015/12/23 13:51:00
-- [求助]列表宽度
老师，
黄色部分的内容其实是一个变量
蓝色这部分要是不定义，列标题显示不全，如果是表内容过长，也会显示不全，如何写代码默认能标题显示全，如果字符过长的，在按照字符长度默认显示。
Dim lvw As WinForm.ListView = e.Form.Controls("ListView2")
Dim cls() As String = {"姓名","性别","编号","编码级次","是否末级"} \'指定要显示的各列
Dim wds() As Integer = {100,100,130,80,80} \'定义列宽‘
For i As Integer = 0 To cls.Length - 1
Dim c As WinForm.ListViewColumn = lvw.Columns.Add()
c.Name = cls(i) \'指定列名
c.Text = cls(i)\'指定列标题
c.Width = wds(i) \'指定列宽
Next
-- 发布时间：2015/12/23 14:05:00
--
宽度设置成 -1、-2，就可以根据标题或者内容显示
c.Width = -1 \'根据内容显示
-- 发布时间：2015/12/23 14:11:00
--
真好用
-- 发布时间：2015/12/23 14:16:00
--
另外listview
For Each cl As String In cls \'逐列取值
Select Case cl
Case "编号" \'如果是人口列或面积列 \'这个编号列是变量，通过什么能判定一下是数值列，然后在执行format呢，通过后面的表端去控制是吗？
r(cl) = format(dr(cl),"#,000") \'则显示千位分割符号
Case Else
r(cl) = dr(cl)
End Select
Next
-- 发布时间：2015/12/23 14:43:00
--
参考
http://www.foxtable.com/help/topics/0413.htm
-- 发布时间：2015/12/23 15:05:00
--
哦 老师 有没有默认值 是 数据表的数字格式
-- 发布时间：2015/12/23 15:14:00
--
这样获取
msgbox(Tables("表A").grid.cols("第一列").format)
-- 发布时间：2015/12/23 16:14:00
--
老师，这个怎么用
Dim r As WinForm.ListViewRow = lvw.Rows.Add() \'增加一行
lvw.Images.AddImage(Key, Key & ".ico", Key & ".ico") \'添加代表这个国家的一对图标
r.ImageKey = Key \'指定图标键值
r.Tag = dr \'将对应的Datarow赋值给tag属性,方便在其他事件中调用
r.UseRowStyle=true
-- 发布时间：2015/12/23 16:15:00
--
此主题相关图片如下：qq图片20151223161234.png
-- 发布时间：2015/12/23 16:16:00
--
http://www.foxtable.com/help/topics/2858.htm