求
此主题相关图片如下：qq截图20181222090347.png
大神指点，出现这个问题，找不到根源
以下是table2 的CurrentChange事件
测试出错的是这一句：“For Each dr As Row In Tables("ProductionOrder_Table2").Rows '从数据表中提取数据 ”
If e.Table.Current Is Nothing Then '如果Current为Nothing
e.Table.Position = 0
'则焦点移动为0
Else
Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
lvw.StopRedraw() '停止绘制
lvw.Groups.Clear()
lvw.Columns.Clear() '清除原来的列
lvw.Rows.Clear() '清除原来的行
lvw.Images.Clear() '清除原来的图片
lvw.View = ViewMode.Tile '显示模式为 大图标
lvw.Images.LargeSize = New Size(172,185) '定义大图标尺寸
lvw.TitleSize = New Size(320,186) '设置平铺区域的大小
Dim fnt As New Font("宋体", 13, FontStyle.Bold) '定义字体
lvw.Font = fnt
lvw.ForeColor = Color.Blue '定义前景色
Dim cls() As String = {"规格","图号","颜色","bom备注","名称"} '定义列名
For i As Integer = 0 To cls.Length - 1 '增加列
Dim c As WinForm.ListViewColumn = lvw.Columns.Add()
c.Name = cls(i) '指定列名
Next
Dim s As Integer =0
Dim str As String
Dim Key As String
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("名称") '设置此行的动态提示
lvw.Images.AddImage(Key,Key,Key)
vr.ImageKey = Key '指定图标键值
For Each cl As String In cls '逐列取值
If cl="名称" Then
str=dr("名称")
vr("名称")=str.Remove(0,8)
Else vr(cl) = dr(cl)
End If
Next
vr.Tag= dr '将DataRow赋值给ListViewRow的Tag属性,将二者联系起来
Next
lvw.ResumeRedraw() '恢复绘制
End If
加好友 
发短信
Post By：2018/12/21 16:54:00 [显示全部帖子]
Post By：2018/12/22 9:58:00 [显示全部帖子]
