主题：求教

   一下代码在 SQL server 数据库运行正常，在Access数据库运行出现：错误所在事件：表，收款信息，DataColChanged

详细错误信息：

调用的目标发生了异常。

startIndex 不能大于字符串长度。

参数名: startIndex

  怎样修改？

详细错误信息：

标准表达式中数据类型不匹配。

Select Case e.DataCol.Name

    Case "日期","编号","客户名称","摘要","收入","支出","余额","银行账号"

        Dim dr As DataRow

        Dim mr As DataRow = e.DataRow

        Dim drs As List(of DataRow)

        dr = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") & " And [银行账号] = '" & mr("银行账号") & "'", "[_SortKey] Desc")

MessageBox.Show("A")

        If dr Is Nothing Then

            mr("余额") = mr("收入") - mr("支出")+jcj

            dr = mr

        End If

        drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") & " And [银行账号] = '" & dr("银行账号") & "'", "[_SortKey]")

        For i As Integer = 1 To drs.Count - 1

            drs(i)("余额") = drs(i-1)("余额") + drs(i)("收入") - drs(i)("支出")

        Next

        If e.DataCol.Name = "银行账号" AndAlso e.OldValue IsNot Nothing AndAlso e.OldValue <> e.NewValue Then

            dr = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") & " And [银行账号] = '" & e.OldValue & "'", "[_SortKey] Desc")

            If dr Is Nothing Then

                dr = e.DataTable.Find("[银行账号] = '" & e.OldValue & "'", "[_SortKey]")

                If dr IsNot Nothing Then

                    dr("余额") = dr("收入") - dr("支出")+jcj

                End If

            End If

            If dr IsNot Nothing Then

                drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") & " And [银行账号] = '" & dr("银行账号") & "'", "[_SortKey]")

                For i As Integer = 1 To drs.Count - 1

                    drs(i)("余额") = drs(i-1)("余额") + drs(i)("收入") - drs(i)("支出")

                Next

            End If

        End If

End Select