Question

VB中怎么对DataGrid1的宽度设置

如题,在DataGrid1中显示的每列中的数据不一样,想按照数据的长短来设置DataGrid1每列的宽度,但是每次都显示下标越界,而且每次查询之后网格宽度都不变,这是为什么
Private Sub Form_Load()
DataGrid1.Columns(0).Width = 1500
DataGrid1.Columns(1).Width = 2000
DataGrid1.Columns(2).Width = 1568 '显示下标越界
DataGrid1.Columns(3).Width = 2300
DataGrid1.Columns(4).Width = 5000

End Sub

Answer 1

Vb中对DataGrid1的宽度设置的代码如下：
DataGrid1.Columns(1).Width = 2000'将DataGrid1中的第一列宽度设置为2000

关于DateGrid控件：

该数据识别的DataGrid控件看起来与Grid控件类似。但是，可以设置DataGrid控件的DataSource属性为一个Data控件，以自动填充该控件并且从Data控件的Recordset对象自动设置其列标头。这个DataGrid控件实际上是一个固定的列集合，每一列的行数都是不确定的。

Answer 2

调整DataGrid1的宽度须在DataGrid1附值以后调整

追问

能说清楚一点吗?对这个VB不是太懂

追答

也就是DataGrid1连接数据库以后再写入DataGrid1.Columns(0).Width = 1500
DataGrid1.Columns(1).Width = 2000
DataGrid1.Columns(2).Width = 1568
DataGrid1.Columns(3).Width = 2300
DataGrid1.Columns(4).Width = 5000

初始化中去掉

追问

已经连接过了,宽度还是不变

追答

我测试是会调整的，

Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Columns(1).Width = 5000

追问

当我查询后 DataGrid1中有数据出现后,宽度就不变,如果还没有查询,宽度是变化的

追答

你不妨用一个按钮测试一下，当加载数据后用按钮Private Sub Command1_Click()单击事件中测试DataGrid1.Columns(1).Width = 5000

看看会发生什么