主题：查找定位

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



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

我想点查找按钮后自动定位到收费标准表上的行，在查找按钮上这样写报错：

With Tables("收费标准")

    Dim dr As DataRow = DataTables("收费标准").Find("[实施日期] = #" & e.Form.Controls("DateTimePicker1").Value & "# OrElse [月租收费] = " & CDbl(e.Form.Controls("TextBox1").Value))

    If dr IsNot Nothing Then

        Dim idx As Integer = .FindRow("[实施日期] = #" & e.Form.Controls("DateTimePicker1").Value & "# OrElse [月租收费] = " & CDbl(e.Form.Controls("TextBox1").Value), .Position, True )

        If idx >= 0 Then

            .Position = idx

        End If

    End If

    Dim dr1 As DataRow = DataTables("收费标准").Find("[实施日期] = #" & e.Form.Controls("DateTimePicker1").Value & "# OrElse [亲情计费_起计时间] = #" & e.Form.Controls("TextBox2").Value & "# OrElse [亲情计费_24小时最高收费] = " & CDbl(e.Form.Controls("TextBox3").Value) & "OrElse [亲情计费_小时收费] = " & CDbl(e.Form.Controls("TextBox4").Value))

    If dr1 IsNot Nothing Then

        Dim idx1 As Integer = .FindRow("[实施日期] = #" & e.Form.Controls("DateTimePicker1").Value & "# OrElse [亲情计费_起计时间] = #" & CDbl(e.Form.Controls("TextBox2").Value) & "# OrElse [亲情计费_24小时最高收费] = " & CDbl(e.Form.Controls("TextBox3").Value) & "OrElse [亲情计费_小时收费] = " & CDbl(e.Form.Controls("TextBox4").Value), .Position, True )

        If idx1 >= 0 Then

            Tables("收费标准").Position = idx1

        End If

    End If

    Dim dr2 As DataRow = DataTables("收费标准").Find("[实施日期] = #" & e.Form.Controls("DateTimePicker1").Value & "# OrElse [临时收费_起计时间] = " & CDbl(e.Form.Controls("TextBox5").Value) & "OrElse [临时收费_24小时最高收费] = " & CDbl(e.Form.Controls("TextBox6").Value) & "OrElse [临时收费_小时收费] = " & CDbl(e.Form.Controls("TextBox7").Value))

    If dr2 IsNot Nothing Then

        Dim idx2 As Integer = .FindRow("[实施日期] = #" & e.Form.Controls("DateTimePicker1").Value & "# OrElse [临时收费_起计时间] = " & CDbl(e.Form.Controls("TextBox5").Value) & "OrElse [临时收费_24小时最高收费] = " & CDbl(e.Form.Controls("TextBox6").Value) & "OrElse [临时收费_小时收费] = " & CDbl(e.Form.Controls("TextBox7").Value), .Position, True )

        If idx2 >= 0 Then

            Tables("收费标准").Position = idx2

        End If

    End If

End With