[求助]关于listview 自动同步表内数据的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

必须重新生成一次listView

datacolchanged事件

If Forms("主窗口").Opened Then
    Dim lvw As WinForm.ListView = Forms("主窗口").Controls("ListViewindex")
    lvw.StopRedraw() '暂停绘制
    lvw.Rows.Clear() '清除原来的行
    lvw.Images.Clear() '清除原来的图片
    lvw.View = ViewMode.LargeIcon '显示模式为大图标
    lvw.Images.AddLargeImage("kong", "kong.ico") '添加代表空的一对图标
    lvw.Images.AddLargeImage("man", "man.ico") '添加代表女性的一对图标
    lvw.Images.LargeSize = New Size(96,96) '定义大图标尺寸
    For Each dr As DataRow In DataTables("餐台表").DataRows '从数据表中提取数据
        Dim vr As WinForm.ListViewRow = lvw.Rows.Add() '增加一行
        vr.Text = dr("餐台名称") '设置标题
        If dr("餐台状态") = "空" Then '设置分组
            vr.ImageKey = "kong"
        Else
            vr.ImageKey = "man"
        End If
        vr.Tag= dr '将DataRow赋值给ListViewRow的Tag属性,将二者联系起来

    Next
    lvw.ResumeRedraw() '恢复绘制
End If

If Forms("商品列表").Opened Then
    Dim lvesp As WinForm.ListView = Forms("商品列表").Controls("ListView2")
    lvesp.StopRedraw
    lvesp.Rows.Clear
    lvesp.Columns.Clear
    lvesp.View = ViewMode.Details
    lvesp.GridLines = True '显示网格线
    Dim cls() As String = {"商品编码","商品名称","单位","单价","不参与折扣","拼音简写"} '定义列名
    Dim wds() As String = {100,100,100,100,100,100} '定义列宽
    For i As Integer = 0 To cls.Length - 1 '增加列
        Dim c As WinForm.ListViewColumn = lvesp.Columns.Add()
        c.Text = cls(i) '指定列标题
        c.Name = cls(i) '指定列名
        c.Width = wds(i) '指定列宽
    Next


    For Each dr As DataRow In DataTables("商品列表").DataRows '从数据表中提取数据
        Dim vr As WinForm.ListViewRow = lvesp.Rows.Add() '增加一行
        For Each cl As String In cls '逐列取值
            vr(cl) = dr(cl)
        Next
        vr.Tag= dr '将DataRow赋值给ListViewRow的Tag属性,将二者联系起来
    Next
    lvesp.ResumeRedraw() '恢复绘制
End If

主题：[求助]关于listview 自动同步表内数据的问题