关于DATAGRID的一个问题

[dgz988]

记得DATAGRID有一个默认选项可以设置列的宽度，就是说让每个列自己适应，根据字段内容的多少适应列的宽度，但怎么也没找到。
如果没有这个属性，是否有其它的方法来改变这些列宽呢？我试验了建一个tablestyle，但不知道什么原因，加上以后表格没有反应，用的方法是 datagrid1.tablestyle.clear datagrid1.tablestyle.add(tablestyle1)

谢谢！

[dgz988]

好的，我试一下，谢谢两位大哥。

[WTaoboy]

Me.DataGrid1.TableStyles.Clear()
Dim DataStyle As New DataGridTableStyle

Dim FileNameCol As New DataGridTextBoxColumn
Dim FilePathCol As New DataGridTextBoxColumn
Dim FileSizeCol As New DataGridTextBoxColumn
Dim FileLastTimeCol As New DataGridTextBoxColumn

FileNameCol.MappingName = "FileName"
FileNameCol.HeaderText = "FileName"
FileNameCol.Width = 200%
ColText = FileNameCol.TextBox
ColText.ForeColor = ForeColor.Red
ColText.ReadOnly = True
AddHandler ColText.DoubleClick, New EventHandler(AddressOf DelColumn_DbClick)
ConMenu.MenuItems.Add(PopMenuItem)
AddHandler PopMenuItem.Click, New EventHandler(AddressOf PopMenuItem_Click)
ColText.ContextMenu = ConMenu
DataStyle.GridColumnStyles.Add(FileNameCol)
DataStyle.ReadOnly = True

FilePathCol.MappingName = "FilePath"
FilePathCol.HeaderText = "FilePath"
FilePathCol.Width = 450%
DataStyle.GridColumnStyles.Add(FilePathCol)
DataStyle.ReadOnly = True

FileSizeCol.MappingName = "FileSize"
FileSizeCol.HeaderText = "FileSize"
FileSizeCol.Width = 100%
DataStyle.GridColumnStyles.Add(FileSizeCol)
DataStyle.ReadOnly = True

FileLastTimeCol.MappingName = "FileLastTime"
FileLastTimeCol.HeaderText = "FileLastTime"
FileLastTimeCol.Width = 200%
DataStyle.GridColumnStyles.Add(FileLastTimeCol)
DataStyle.ReadOnly = True

Me.DataGrid1.TableStyles.Add(DataStyle)
Me.DataGrid1.ReadOnly = True

[hamadou]

上面的例子很详细了，估计你是没有设置有效的MappingName