ListView 对关联表不行吗 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → ListView 对关联表不行吗

共有1831人关注过本帖树形打印复制链接主题：ListView 对关联表不行吗

有点蓝

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

加好友

发短信

等级：超级版主帖子：110597 积分：562881 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2016/11/2 23:12:00 [显示全部帖子]

For Each dr As Row In Tables("订单表.订单明细").Rows '从数据表中提取数据

Dim vr As WinForm.ListViewRow = lvw.Rows.Add() '增加一行

For Each cl As String In cls '逐列取值

vr(cl) = dr(cl)

'If dr("性别") = "男" Then '设置分组

'vr.ImageKey = "Man"

'Else

'vr.ImageKey = "Woman"

'End If

vr.Tag= dr.DataRow '将DataRow赋值给ListViewRow的Tag属性,将二者联系起来

有点蓝

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

加好友

发短信

等级：超级版主帖子：110597 积分：562881 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2016/11/3 8:37:00 [显示全部帖子]

For Each zh As String In DataTables("订单明细").GetValues("房间","订单编号='" & Tables("订单表").Current("订单编号") & "'") '增加分组

Dim grp As WinForm.ListViewGroup = lvw.Groups.Add()

grp.Name = zh

grp.Text = zh

For Each dr As Row In Tables("订单表.订单明细").Rows

'Dim Key As String = dr("图标")

Dim r As WinForm.ListViewRow = lvw.Rows.Add() '增加一行

lvw.Images.AddImage(Key, Key & ".ico", Key & "48.ico") '添加代表这个国家的一对图标

'r.ImageKey = Key '指定图标键值

r.Group = dr("房间") '指定所属分组

For Each cl As String In cls '逐列取值

Select Case cl

'Case "人口","面积" '如果是人口列或面积列

'r(cl) = format(dr(cl),"#,000") '则显示千位分割符号

Case Else

r(cl) = dr(cl)

End Select

有点蓝

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

加好友

发短信

等级：超级版主帖子：110597 积分：562881 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2016/11/3 8:38:00 [显示全部帖子]

好好理解一下table和datatable

http://www.foxtable.com/webhelp/scr/1586.htm

下一主题 >> << 上一主题

主题：ListView 对关联表不行吗