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