以表格的形式输出 ,指定字段内容????

Question

例如有两个字段id 和 name把字段id以表格的形式展示出来
格式例子1   2   3   4   5   6   7   8   9   10
11  12  13  14  15  16  17  18  19  20 
21  22  23  24  25  26  27  28  29  30
31 .......当鼠标单击数字时 text1里面就会显示id所对应的name字段内容怎么做???(字段id是横向排序的哦)

Answer 1

select name from tbl where id = ？
什么表格？

Answer 2

应该就是把ID查询出来填写入表格，然后当点击某一个ID时，在对其进行条件查询，显示在Text中。

Answer 3

例如表名为 ceshi 具体得怎么弄,怎么填写入表格? 用datagrid控件吗?

Answer 4

用什么表格都无所谓，问题的关键在于：
1、你用什么数据库？比如Access数据库
2、用什么方式链接数据库？比如ADO对象
3、使用Sql语句查询数据库，将数据填入表格
4、编写表格点击事件，条件查询数据库，将得来的数据填入Text中ADO对象操作数据库
Sql语句参考

Answer 5

哦,不好意思,忘了说了,
用的是Access2000
用adodoc控件链接现在不知道如何填入表格

Answer 6

MSHFlexGrid 控件
            Microsoft Hierarchical FlexGrid (MSHFlexGrid) 控件对表格数据进行显示和操作。在对包含字符串和图片的表格进行分类、合并以及格式化时，具有完全的灵活性。当绑定到 Data 控件上时，MSHFlexGrid 所显示的是只读数据。语法MSHFlexGrid说明可以将文本、图片，或者文本和图片，放在MSHFlexGrid 的任意单元中。Row 和 Col 属性指定了MSHFlexGrid 中的当前单元。程序员可以在代码中指定当前单元，也可以在运行时，使用鼠标或者方向键来对其进行修改。Text 属性引用当前单元的内容。如果单元的文本过长而不能在该单元中显示，而且 WordWrap 属性被设置为 True，那么文本就会换行到同一单元内的下一行。为了显示换行的文本，可能需要增加单元的列宽度（ColWidth 属性）或者行高度（RowHeight 属性）。可以用 Cols 和 Rows 属性来决定MSHFlexGrid 控件中的列数和行数。显示层次结构记录集
 MSHFlexGrid 控件的一个主要特性是它能显示层次结构记录集—以层次结构方式显示的关系表。创建层次结构记录集的最容易的方法是使用数据环境设计器并把 MSHFlexGrid 控件的 DataSource 属性赋给数据环境。您也可以用 Shape 命令作为 ADO Data Control 的 RecordSource 在代码中创建层次结构记录，如下面的示例:' 创建 ConnectionString.
Dim strCn As String
strCn = "Provider=MSDataShape.1;Data Source=Nwind;" & _
"Connect Timeout=15;Data Provider=MSDASQL"' 创建 Shape 命令.
Dim strSh As String
strSh = "SHAPE {SELECT * FROM `Customers`}  AS Customers " & _
"APPEND ({SELECT * FROM `Orders`}  AS Orders RELATE " & _
"CustomerID TO CustomerID) AS Orders"' 把 ConnectionString 赋给 ADO Data Control 的
' ConnectionString 属性, Shape 命令以及
' 控件的 RecordSource 属性.
With Adodc1
   .ConnectionString = strCn
   .RecordSource = strSh
End With
' 把 HflexGrid 控件的 DataSource 属性设置到 
' ADO Data 控件。
Set HFlexGrid1.DataSource = Adodc1详细信息 要查找有关分层记录集的更多信息，请参阅 Hierarchical Cursors and Data Shaping Summary. Shape 命令的详细信息可参阅 Shape Commands in General.发行注意 在应用程序中使用 MSHFlexGrid 控件之前，必须将 MSHFlxGrd.ocx 文件添加到工程中。为了将该文件自动包括到工程中，可以把它放到自动装载文件中。当发行应用程序时，应该将 MSHFlxGrd.ocx 文件安装到用户的 Microsoft Windows 的 System 子目录下。关于将 ActiveX 控件添加到工程中的详细信息，请参阅《Visual Basic程序员指南》中的“标准 ActiveX 控件”。

Answer 7

我用的是datagrid 怎么弄成横向的?如果datagrid不能弄成横向的,怎么用MSHFlexGrid弄成横向的,可否来个参考代码??!!

Answer 8

'使用MSHFlexGrid控件
'设置列数（固定,假设为mc,不含固定列）Dim RS As ADODB.RecordsetPrivate Sub Command1_Click()
    Dim r As Long, c As Long
    
    With RS
        If .RecordCount > 0 Then
            .MoveFirst
            c = 1
            r = 1
            While Not .EOF
                If c > MC Then
                    r = r + 1
                    c = 1
                    MSHFlexGrid1.AddItem '添加一行
                End If
                MSHFlexGrid1.TextMatrix(r, c) = CStr(RS("ID字段名称"))
                
                c = c + 1
                .MoveNext
            Wend
        End If
    End With
End Sub

Answer 9

Private Sub Form_Load()
With MSHFlexGrid1
   .Width = 3350
   .FixedCols = 0
   .FixedRows = 0
   .Cols = 10
   .Rows = 150
   
   .ColWidth(-1) = 300
   
End With
With Adodc1
   .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db1.mdb;Persist Security Info=False"
   .RecordSource = "select * from tb1"
   .Refresh
    MSHFlexGrid1.Rows = Int(.Recordset.RecordCount / 10 + 0.9)
   
   Dim r As Long, c As Integer
   While Not .Recordset.EOF
      MSHFlexGrid1.TextMatrix(r, c) = .Recordset.Fields(0)
      c = c + 1
      If c > 9 Then c = 0: r = r + 1
      .Recordset.MoveNext
   Wend 
End With
End SubPrivate Sub MSHFlexGrid1_Click()
    Text1 = ""
    Adodc1.Recordset.Find "ID=" & Val(MSHFlexGrid1.Text) & "", , , 1
    If Not Adodc1.Recordset.EOF Then Text1 = Adodc1.Recordset.Fields(1)
    
End Sub