VB中怎么双击datagrid记录打开对应的详细信息

VB中如何双击datagrid记录打开对应的详细信息
在VB的datagrid控制中，如何双击记录打开对应的详细信息？如：
学生编号姓名年龄性别
001 张三 25 男
002 王五 30 男
箭头指向第二行时，打开王五同学的详细信息表（此表之前以存在）
还有，就是如果导出datagrid数据的excel文件

------解决方案--------------------
正好有一段代码，Grid是Datagrid控件。

VB code

Private Sub Grid_DblClick()
If IsNull(Grid.Bookmark) Then Exit Sub
    Dim s As New clsService '自定义的数据结构或类，用来保存每一行的数据
    With s
        .Id = Grid.Columns(0).CellText(Grid.Bookmark)
        .ItemName = Grid.Columns(1).CellText(Grid.Bookmark)
        .Specification = Grid.Columns(2).CellText(Grid.Bookmark)
        .Target = Grid.Columns(3).CellText(Grid.Bookmark)
        .UnitPrice = Grid.Columns(4).CellText(Grid.Bookmark)
        .OutDated = Grid.Columns(6).CellText(Grid.Bookmark)
    End With
    Set mobjSrv = s
    setUI '用mobjSrv中的数据设置界面
End Sub

------解决方案--------------------
这是导出Excel的代码示例

VB code


Dim xobject As New Excel.Application
Dim xBook As New Excel.Workbook
Dim xSheet As New Excel.Worksheet

Set xobject = CreateObject("excel.application")
Set xBook = xobject.Workbooks.ADD
Set xSheet = xobject.Worksheets("sheet1")
xSheet.Activate

dim tabel1 as Datatable=ctype(Datagrid1.datasource,Datatable) 

For i = 1 To table1.rows.count
   For j=1 to table1.columns.count
      xSheet.Cells(i, j).Value = dataGrid1.Columns(j-1).CellText(Grid.Bookmark)
   Next j
Next i

xbook.visible=true

VB中怎么双击datagrid记录打开对应的详细信息

相关推荐