'平均分每行
    Dim i
    For i = 1 To DataGrid1.Columns.Count
        DataGrid1.Columns(i).Width = DataGrid1.Width / DataGrid1.Columns.Count
    Next

解决方案 »

  1.   

    设计时把它绑定在一个ADODC/DATA上,retrive fields,
    grid的列就是你绑定的表上的字段了。你可以编辑每一个列的名称。
      

  2.   

    请说清楚点么,看不太懂
    我意思是指定datagrid显示的行列数,比如,我要他只显示10行,5列,多余的不显示
      

  3.   

    设计的时候右击Grid控件,可以编辑的。
      

  4.   

    呵呵,行数就是你绑定的Recordset的RecordCount。
      

  5.   

    设计的时候右击Grid控件,点击编辑,然后可以追加,删除,插入
      

  6.   

    那不用ADODC,用代码的话要怎么做?
      

  7.   

    Private Sub Command1_Click()
        Dim x As Integer
        Dim y As Integer
        Dim i As Integer
        
        x = 1'你想要的列数
        For i = x To DataGrid1.Columns.Count - 1
           DataGrid1.Columns(i).Visible = False
        Next
        y = 5'你相要的行数
        DataGrid1.Height = DataGrid1.RowHeight * (y + 1) + 50
    End Sub
      

  8.   

    谢谢coolant—lai
    为什么列数要这样拐弯抹角呢?
    有没有更简单的方法?