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

各位大侠，我有表A和表B，A表里都是图片，B表里都是数据。两个表都有“款号”列。在不关联两个表的情况下，我需要在B表里点到某一行自动找出相应的“款号”数据定位到A表的窗口的PictureBox图片，我在A表窗口的"PictureBox图片"的BeforeGetImage属性里写了以下代码，但是并不能成功指定，请问要怎么办呀？

 

Dim dr As DataRow

dr = DataTables("B表").Find("[款号] = '" & Tables("A表").current("款号") & "'")

If dr IsNot Nothing Then

    Dim wz As Integer = Tables("A表").FindRow(dr)

    If wz >= 0 Then

        Tables("A表").Position = wz

    End If

End If

 

后来我又试了以下代码，还是不行，对于你们懂代码的高手就很简单， 我这个菜鸟，写了好多代码都不成功，好着急呀！

 

Dim bh As String = Tables("B表").Current("款号")

Tables("A表").DataTable.Load

Tables("A表").Position = Tables("A表").FindRow("款号 = '" & bh & "'")

谢谢大红袍老师，问题解决了

大红袍老师，我用你的代码写到表B里面倒是可以看到表A里的图片了，现在我又建立了一个表C，为什么同样的代码写到表B里又不行了呢？好伤脑细胞呀！

表A表B都有款号，表B表C都有PO号。

If e.Table.Current IsNot Nothing Then
    Dim idx As Integer = Tables("表A").FindRow("[款号] = '" & e.Table.current("款号") & "'")
    Dim ax As Integer = Tables("表C").FindRow("[PO] = '" & e.Table.current("PO") & "'")
    If idx >= 0 Then     
        Tables("表A").Position = idx 
    End If
    If ax >= 0 Then     
        Tables("表C").Position = ax 
    End If
End If

我现在是在表A里建立了一个窗口，这个窗口里的数据是三个表都有的。我把代码是写在表B的CurrentChanged里面的，按照你的方法，刚调出表B数据的时候，第一行并不会变。现在建立表C后，表C的数据不会跟着表B的数据变。哎，看来还要恶补下基础篇才行呀！

谢谢大红袍老师指导，我大概搞明白定位的问题了，现在我想知道pictureviewer图片浏览器，可以添加很多图片，能否每张图片我一点下去，相应这张图片的说明文字和数据也可以调用出来呢？请多多指教，再次万分感谢。另外大红袍老师，您接项目吗？我公司需要做的版面可以给您去做吗？我可以和公司申请经费，就是不知道费用高不高？

大红袍老师，我上传了我的项目，我就是想每次点图片的时候能调用不同的数据，比如我点第一张图片，就只显示“数据1”和“数据2”，点第二张图片的时候就显示“数据3”和“数据4”，图片每一行可能会有很多张，每行可能有3张，或者5张，然后每张图片都想调用不同列的数据，请问要如何实现，谢谢！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目5.table

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:attachments.rar

大红袍老师，我打开你帮我做的项目试了试，不行呀，现在点图片下去跳出一个窗口显示我点击了：......文件路径，不能正确跳出我需要的数据。我看到您写的代码里面有这么一行：MyTimers("计划1").Enabled = True 请问计划1是什么呀？

 

简单的说就是我要点“中国图标”的图片，在当前行跳出“数据1”和“数据2”的内容，其它数据和文本框都不显示。

如果我点了“哥伦比亚图标”的图片，在当前行跳出“数据3”和“数据4”的内容，其它数据和文本框都不显示。

 

请问能行吗？谢谢！

谢谢大红袍老师的耐心指导，我又重新写了项目，都换来换去研究了2个小时的代码了，还是不成功，希望老师帮帮忙再看看，我现在定义了全局变量，

Public Chile As  String = "数据1" & "数据2"
Public China As  String =  "数据3" & "数据4"
Public Colombia As String = "数据5"

我用图片名称作为变量名，想点下去这个图片名称，右边的“label标签”可以按照我设定的全局变量显示。我用您给我的代码换来换去，但是每次都提醒PictureView1_Click指定错误，都快急疯了，还望老师耐心帮我看看，再次感激不尽，谢谢！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:downloads.rar

大红袍老师真牛，这样都被你想到。万分感谢，还有个后续的小问题，我不大会用Select语句。我的表里总共有12列的数据，图片名称可以一直排下去，我想每12次一个循环要怎么写呀？

 

Dim name As String = FileSys.GetName(Forms("表A").Controls("PictureViewer1").SelectedItem)

Select Case name

    Case "Colour1.jpg"

        Forms("试行图").Controls("TextBox1").text = Tables("表A").Current("数据1")

    Case "Colour2.jpg"

        Forms("试行图").Controls("TextBox1").text = Tables("表A").Current("数据2")

    Case "Colour3.jpg"

        Forms("试行图").Controls("TextBox1").text = Tables("表A").Current("数据3")

    Case "Colour4.jpg"

        Forms("试行图").Controls("TextBox1").text = Tables("表A").Current("数据4")

    Case "Colour5.jpg"

        Forms("试行图").Controls("TextBox1").text = Tables("表A").Current("数据5")

    Case "Colour6.jpg"

        Forms("试行图").Controls("TextBox1").text = Tables("表A").Current("数据6")

    Case "Colour7.jpg"

        Forms("试行图").Controls("TextBox1").text = Tables("表A").Current("数据7")

    Case "Colour8.jpg"

        Forms("试行图").Controls("TextBox1").text = Tables("表A").Current("数据8")

    Case "Colour9.jpg"

        Forms("试行图").Controls("TextBox1").text = Tables("表A").Current("数据9")

    Case "Colour10.jpg"

        Forms("试行图").Controls("TextBox1").text = Tables("表A").Current("数据10")

    Case "Colour11.jpg"

        Forms("试行图").Controls("TextBox1").text = Tables("表A").Current("数据11")

    Case "Colour12.jpg"

        Forms("试行图").Controls("TextBox1").text = Tables("表A").Current("数据12")

    Case "Colour13.jpg"

        Forms("试行图").Controls("TextBox1").text = Tables("表A").Current("数据1")

    Case "Colour14.jpg"

        Forms("试行图").Controls("TextBox1").text = Tables("表A").Current("数据2")

.

.

.

.

.

.

End select

大红袍老师的代码水平我真是佩服的五体投地，不知道我要多久才能学明白。现在我还在考虑一个问题，目前这个方法可以很好的调用数据表里的数据显示到窗口里，但是在窗口的TextBox里面因为没有绑定数据源，不能写数据进去，有方法可以绑定12个数据源吗？不好意思，每次都麻烦你！

大红袍老师，这个动态绑定的代码是要写在哪里呀？我在TextBox里面的好多事件窗口都试了不行，放到CLICK里不行，放到DateFormat也不行，难道要放到全局代码里吗？

Dim s As String = e.Form.Controls("TextBox264").BindingField
 If s > "" Then
     Dim p As Integer = s.LastIndexOf(".")
     Dim t As String = s.SubString(0, p)
     Dim c As String = s.SubString(p + 1)
     MessageBox.Show("订单明细" & t & "Color1" & c)
 End If

我这么写代码对吗？我的color列有color1，color2，一直到color12的，动态绑定能区分不同的列放进去吗？谢谢！