主题：关于不同表定位图片的问题。

Dim name As String = FileSys.GetName(Forms("窗口1").Controls("PictureViewer1").SelectedItem)
Dim idx As Integer = -1
Dim ls As List(Of String) = Tables("表A").Current.DataRow.Lines("图片")
For i As Integer = 0 To ls.count - 1
    If ls(i) = name Then
        idx = i
        Exit For
    End If
Next
If idx > -1 Then
    idx = idx Mod 12 + 1
    Forms("窗口1").Controls("TextBox1").BindingField = "表A.数据" & idx
End If

大红袍老师，谢谢你的指导，我现在搞明白好多东西了，现在又出个新问题需要咨询你，就是我在窗口里加了一个Button（按钮），我在Click事件里写

MainTable = Tables("表A")
Dim filter As String = "1=2"
For Each dc As Col In CurrentTable.Cols
    filter &= " or convert(" & dc.Name & ",'System.String') like '%" & e.Form.Controls("TextBox63").Text & "%'"
Next
CurrentTable.Filter = filter

平时运行是没有问题的，但是当我搜索款号搜不到的时候，代码就显示“处理点击图片”出错。我把出错的页面传上来请帮我看看，现在系统做大了，一出问题好头疼呀，谢谢你！

此主题相关图片如下：img_20150822_151643.jpg

加个过滤看看

有点蓝老师，你的方法试了，还是不行，我附图给你看。
此主题相关图片如下：p1210076.jpg

看不出问题啊，要不你再试着判断一下dc isnot nothing

判断一下。

 

If Tables("表A").Current Is Nothing Then Return

 

Dim name As String = FileSys.GetName(Forms("窗口1").Controls("PictureViewer1").SelectedItem)
Dim idx As Integer = -1
Dim ls As List(Of String) = Tables("表A").Current.DataRow.Lines("图片")
For i As Integer = 0 To ls.count - 1
    If ls(i) = name Then
        idx = i
        Exit For
    End If
Next
If idx > -1 Then
    idx = idx Mod 12 + 1
    Forms("窗口1").Controls("TextBox1").BindingField = "表A.数据" & idx
End If

大红袍老师，我在自定义函数里写了If Tables("表A").Current Is Nothing Then Return “” 这样之前那个错误框不会跳出来了，但是搜索没有的款号的时候，还有个运行错误显示“未将对象引用设置到对象的实例。”我看了半天代码，找不出问题呀？不管怎么样，现在最起码能用了，还是要谢谢大红袍老师的。

出错的项目，做个例子发上来。

大红袍老师，我的系统太多内容了，导不出来，每次生成报表也出问题了，显示报表不在attachments中，哎，头疼，不知道广州有没有专家可以来指导一下。
此主题相关图片如下：4163818.png