导航
  • 主页
  • VBS
  • .NET技术
  • VBA
  • VB网络编程
  • VB多媒体
  • VB数据库
  • VB控件
  • VB COM/DCOM
  • VB基础类
  • VB API
  • 问答

怎样判断一个DataGrid多行被选中?并且删除这多行?

jackjack 2002-09-29 02:17:39
在一个button里实现该功能?
...全文
23 点赞 收藏 8
写回复
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
jackjack 2002-10-09
实时绑定删除多行???
好象比较困难
回复
okjpan 2002-10-08
Public Function GetSelectedRows(ByVal datagrid1 As DataGrid) As System.Collections.ArrayList
Dim al As New System.Collections.ArrayList()
Dim i As Integer
' line assume's datasource is dataset - if datasource is datatable 2nd option
' While i < CType(dataGrid1.DataSource, DataSet).Tables(0).Rows.Count 'option 1
While i < CType(datagrid1.DataSource, DataTable).Rows.Count 'option 2
If datagrid1.IsSelected(i) Then
al.Add(i)
End If
i = i + 1
End While
Return al
End Function 'GetSelectedRows
Private Sub button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim s As String = "Selected rows:"
Dim o As Object
For Each o In GetSelectedRows(dataGrid1)
s += " " + o.ToString()
Next o
MessageBox.Show(s)
End Sub 'button1_Click
回复
jackjack 2002-09-29
有其他的问题
不过不在这个问题范围内
新增一条记录也会报这个错
刚发现,新增好几条记录不定
奇怪
回复
mynewpc 2002-09-29
这也简单,不会再有别的问题吧?
回复
jackjack 2002-09-29
还要加DataGrid1.focus才能用
严重错误:未将对象引用设置到对象的实例
回复
mynewpc 2002-09-29
不会吧,你把错误信息贴出来看看
回复
jackjack 2002-09-29
楼上的兄弟:
用这说的个有问题,
有时会报一些莫名其妙的错误!!!
回复
mynewpc 2002-09-29
SendKeys.Send("{DELETE}")
回复
发动态
发帖子
VB
创建于2007-09-28

1.5w+

社区成员

VB技术相关讨论,主要为经典vb,即VB6.0
申请成为版主
社区公告
暂无公告