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 codeDim xobject As New Excel.ApplicationDim xBook As New Excel.WorkbookDim xSheet As New Excel.WorksheetSet xobject = CreateObject("excel.application")Set xBook = xobject.Workbooks.ADDSet xSheet = xobject.Worksheets("sheet1")xSheet.Activatedim 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 jNext ixbook.visible=true

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

热点推荐