dataview .Find(Key)问题

Ztony 2004-10-24 11:55:17
本人先打开一个Dataset Ds,

dim dv as new dataview
dv=ds.tables(0).defaultview
datagrind1.datasource=dv


另外有个重绑定过程 :
sub bindData(dim key as object )

dv=ds.tables(0).defaultview
datagrind1.datasource=dv

end sub



...全文
195 2 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
Ztony 2004-10-24
  • 打赏
  • 举报
回复
不好意思,还没有写好,不小心发出去了,下面继续说:

本人先打开一个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
水如烟 2004-10-24
  • 打赏
  • 举报
回复
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

16,722

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧