我在论坛上找到这个，但好像会报错？错误在这里，.Alignment = 2 ，我的是VFP6.0的，我查看了CHECK的Alignment ，只有0，1的？没2？难道你们是9.0的有2的？
在6.0中要 居中对齐，怎么搞？
WITH Thisform.grid1.Columns[1]
    .AddObject('check1','CheckBox')     && 添加复选框
    .CurrentControl = 'Check1'          && 用复选框显示列内容
    .Check1.Visible = .t.               && 使复选框可见
    .Check1.Caption = ''                && 去掉复选框右边的文字 check1
    .Sparse = .f.                       && 所有行均显示复选框
    .Alignment = 2                      && 居中对齐
    .Width = 28                         && 列宽
ENDWITH

是的，好像6.0只有0和1的。

那6.0怎么才能剧中啊。。

WITH Thisform.grid1.Columns[1]
    .AddObject('check1','CheckBox')     && 添加复选框
    .CurrentControl = 'Check1'          && 用复选框显示列内容
    .Check1.Visible = .t.               && 使复选框可见
    .Check1.Caption = ''                && 去掉复选框右边的文字 check1
    .Sparse = .f.                       && 所有行均显示复选框
    .Alignment = 2                      && 居中对齐=2,VFP6.0只有0和1
    .Width = 28                         && 列宽
    .Check1.Value=1                     && 默认
ENDWITH

写的是,Grid.Column,但他提示的却是CHECK

Alignment = 1，0都不会报错

WITH Thisform.grid1.Columns[1]
    .AddObject('check1','CheckBox')     && 添加复选框
    .CurrentControl = 'Check1'          && 用复选框显示列内容
    .Check1.Visible = .t.               && 使复选框可见
    .Check1.Caption = '123'                && 去掉复选框右边的文字 check1
    .Sparse = .f.                       && 所有行均显示复选框
    .Alignment = 0                     && 居中对齐=2,VFP6.0只有0和1
    .Width = 50                         && 列宽
    .Check1.Value=1                     && 默认
ENDWITH
.Alignment = 0 出下图


.Alignment = 1 出下图

难道是版本问题，我的是6.0，=2时报错，他这里的效果，明显就是指CHECK的

[ 本帖最后由 mywisdom88 于 2015-4-26 22:47 编辑 ]

WITH Thisform.grid1.Columns[1]
    .AddObject('check1','CheckBox')     && 添加复选框
    .CurrentControl = 'Check1'          && 用复选框显示列内容
    .Check1.Visible = .t.               && 使复选框可见
    .Check1.Caption = '123'                && 去掉复选框右边的文字 check1
    .Sparse = .f.                       && 所有行均显示复选框
    .Alignment = 1                     && 居中对齐=2,VFP6.0只有0和1
    .Width = 50                         && 列宽
    .Check1.Value=1                     && 默认
ENDWITH
我在下面加1句，=0,1,4,5,7,8时都不出错，但=2，2，6就报错误
但=0,1,4,5,7,8时，都不是在中间的。
thisform.grid1.column1.alignment=8

我知道，你们说的，但奇怪的是，我这里不行。。

电挂起后

我在WITH前面=2就不报错，但只要我建立CHECK后，在=2，就报错。
估计真的是我的版本问题。