请问怎样把选中的数据放到DataGridView2

lin7516 2015-05-07 05:42:23
请问怎样用VB.NET把选中的数据放到DataGridView2.
我从网上抄了一段代码,请问怎样把 布尔值 为真的数据全部复制到DataGridView2.

Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim dt As DataTable
Dim dr As DataRow
Dim i As Integer

'创建数据表
dt = New DataTable
dt.Columns.Add(New DataColumn("布尔值", GetType(Boolean)))
dt.Columns.Add(New DataColumn("整数值", GetType(Integer)))
dt.Columns.Add(New DataColumn("字符串值", GetType(String)))


'生成一些行,并在其中放置一些示例数据
For i = 1 To 9
dr = dt.NewRow()
If (i Mod 2 <> 0) Then
dr(0) = True
Else
dr(0) = False
End If
dr(1) = i
dr(2) = "项 " + i.ToString()
'向数据表中添加行
dt.Rows.Add(dr)
Next
DataGridView1.DataSource = dt
End Sub
End Class
...全文
223 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
Tiger_Zhao 2015-05-13
  • 打赏
  • 举报
回复
最后一行是新增行?
要离开这行结束编辑(就是行头那个一支笔的图标消失)后,数据才加入DataTable。
你应该在 RowValidated 之类的事件中进行复制。
lin7516 2015-05-13
  • 打赏
  • 举报
回复
引用 2 楼 Tiger_Zhao 的回复:
把数据复制到新的DataTable中再绑定。
        Dim dt2 As DataTable = dt.Clone()
        For Each dr In dt.Select("布尔值=true")
            dt2.ImportRow(dr)
        Next
        DataGridView2.DataSource = dt2
怎么放到 DataGridView 的 Click 中不对啊,点击最后哪一个总是无法显示到DataGridView2里。
Tiger_Zhao 2015-05-08
  • 打赏
  • 举报
回复
把数据复制到新的DataTable中再绑定。
        Dim dt2 As DataTable = dt.Clone()
For Each dr In dt.Select("布尔值=true")
dt2.ImportRow(dr)
Next
DataGridView2.DataSource = dt2
  • 打赏
  • 举报
回复
dt.Select("布尔值=1");
dt.Select("布尔值=true");
不知道是应该用1呢,还是用true

16,554

社区成员

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

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