主题：查找定位问题

老师们帮助指点一下。我想在查找里实现查找出现的最后一次内容，比如附件里面标红的，我点击查找应该给我定位到最后一次出现的那个行的内容。代码是这样的：

Dim tbx As WinForm.TextBox = e.Form.Controls("czdwmc")
Dim chk As WinForm.CheckBox = e.Form.Controls("mhcz")
Dim str As String = tbx.Value
Dim dr As DataRow
If chk.Checked Then
    dr = DataTables("冷轧日报").Find("熔次号 Like '%"  & str & "%'") '模糊查找
Else
    dr = DataTables("冷轧日报").Find("熔次号 = '"  & str & "'") '精确查找
End If
If dr IsNot Nothing Then
    Dim idx As Integer = Tables("冷轧日报").FindRow(dr)
    If idx > 1 Then
        Tables("冷轧日报").Position = idx
    End If
End If

此主题相关图片如下：a8ee9ee770eaa022ae29e4ea7afdb1f.png

现在用这个代码写出来，就没有实现定位到最后一条，想请老师们指教一下。

我为什么按照你编译完成后报这个错误呢。

此主题相关图片如下：2.png