2、定位到指定条件行(2004.7.20)

 

Public Function PointTo(ByVal mDataGrid As DataGrid, ByVal mFieldName As String, ByVal mFieldValue As String) As Integer

    '判断mDataGrid数据源类型

    '如果绑定的是DataSet或DataViewManager或没有绑定任何数据源，则退出,

    If TypeOf mDataGrid.DataSource Is System.Data.DataSet OrElse _

    TypeOf mDataGrid.DataSource Is System.Data.DataViewManager OrElse _

    mDataGrid.DataSource Is Nothing Then Exit Function

 

    '以下分别考虑两种数据源，一是DataView,一是DataTable

    Dim dv As DataView

    If TypeOf mDataGrid.DataSource Is System.Data.DataView Then

        dv = CType(mDataGrid.DataSource, DataView)

    Else

        dv = CType(mDataGrid.DataSource, DataTable).DefaultView

    End If

    dv.Sort = mFieldName

    dv.ApplyDefaultSort = True

 

    Dim rowIndex As Integer = -1

 

    Try

        rowIndex = dv.Find(mFieldValue)

        If rowIndex <> -1 Then mDataGrid.CurrentRowIndex = rowIndex

    Catch ex As SystemException

        MsgBox(ex.Message)

    End Try

    Return rowIndex

End Function

我BLOG上的： 
http://blog.csdn.net/lzmtw/archive/2004/07/19/45248.aspx

不好意思，还没有写好，不小心发出去了，下面继续说：

本人先打开一个Dataset Ds,
希望在修改此DS内容后便刷新它，然后重新定位到修改的那行!!下面是关键的代码
dim dv as new dataview 
dim ds as new dataset 

sub form_load ()
    dv=ds.tables(0).defaultview
    datagrind1.datasource=dv
end sub 

sub btnModify()
    '这里是保存修改当前记录的主键值 
   
     dim key(0) as object
     key(0)="10256"
‘这里重新绑定并定位到 orderid=10256的记录行
     binddata(key)
 end sub

另外有个重绑定过程 ：
sub bindData(dim  key as object )
   ds 重新打开
   dv=ds.tables(0).defaultview
   datagrind1.datasource=dv
   dv.sort="orderid"
   me.bindingcontext(dv).position=find(key) 
end sub

请问为什么不能定位到正确的行!! debug 时，find(key)=-1