For Each dr As Row In Tables("ProductionOrder_Table2").Rows '从数据表中提取数据
If dr("图片") IsNot Nothing Then
Key=dr("图片")
Else Key =""
End If
Dim vr As WinForm.ListViewRow = lvw.Rows.Add() '增加一行
vr.ToolTipText = dr("名称") '设置此行的动态提示
If key > "" Then
lvw.Images.AddImage(Key,Key,Key)
vr.ImageKey = Key '指定图标键值
End If
For Each cl As String In cls '逐列取值
If cl="名称" Then
str=dr("名称")
If str.length >=8 Then
vr("名称")=str.Remove(0,8)
End If
Else vr(cl) = dr(cl)
End If
Next
vr.Tag= dr '将DataRow赋值给ListViewRow的Tag属性,将二者联系起来
Next
加好友 
发短信
Post By：2018/12/22 9:41:00 [显示全部帖子]
