MSHFlexGrid 控件 邦定ado 控件以后，无法修改列标题

[qiwen1530]

如题，MSHFlexGrid 控件 邦定了ADO控件，然后就无法修改列标题了，用右键属性的方法修改后不起作用，用运行时代码修改也不行，请问各位是什么原因，有什么办法！谢谢！

[帝企鹅已被占用]

试试alias

[vbman2003]

MSHFlexGrid可以脱离记录集的，所以你要先nothing掉ADO控件，再修改...

[vbman2003]

基本没用过ADODC控件，绑定后试着加一行：
set adodc1.recordset.connection=nothing
然后再用相应属性修改...

[king06]

ADO控件里面的RecordSource改一下别名就可以了
Adodc1.RecordSource = "SELECT 编号 as 别名1 from code"
Adodc1.refresh

[chinaboyzyq]

[Quote=引用楼主 qiwen1530 的回复:]
如题，MSHFlexGrid 控件 邦定了ADO控件，然后就无法修改列标题了，用右键属性的方法修改后不起作用，用运行时代码修改也不行，请问各位是什么原因，有什么办法！谢谢！
[/Quote]

一、设计时修改列标题：
1、为adodc1,通用里选择使用连接字符串，
   记录源里命令类型选择1，命令文本内添加
   select * from 表名
2、在mshflexgrid的属性对话框里
   datasource选择adodc1
3、右单击mshflexgrid,选择属性，在属性页中
   单击带区，修改列标题下的内容，
   勾选择列标头。
4、单击通用，修改固定行为0，这样就修改好了，
   列标题。

二、运行时修改列标题：
Private Sub Form_Load()
    '添加adodc1到窗体
    '添加mshflexgrid1到窗体
    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrator\My Documents\11.mdb;Persist Security Info=False"
    Adodc1.CommandType = adCmdText
    Adodc1.RecordSource = "select * from itb1"
    Adodc1.Refresh
    MSHFlexGrid1.FixedRows = 0
    MSHFlexGrid1.FixedCols = 0
    Set MSHFlexGrid1.DataSource = Adodc1
    MSHFlexGrid1.ColHeader(0) = flexColHeaderOn
    Dim i As Integer
    For i = 0 To MSHFlexGrid1.Cols - 1
        MSHFlexGrid1.ColHeaderCaption(0, i) = "设置" & i '设置标题名称，可以分开一个一个设
    Next
    MSHFlexGrid1.Row = 1
    MSHFlexGrid1.Col = 1
        
End Sub

[qiwen1530]

哈哈，感谢chinaboyzyq 要地就是这个