感谢 茵梦湖 终于解决了添加控件的方法。
 thisform.grid1.Columns(3) .AddObject("是否","checkBox")
 thisform.grid1.Columns(3) .是否.Visible =.t.
 thisform.grid1.Columns(3)  .是否.caption =""
 thisform.grid1.Columns(3) .CurrentControl ="是否"
 thisform.grid1.Columns(3) .Sparse =.f.
 thisform.grid1.Columns(3)  .width =30

非常感谢哦，用你的方法解决了复选框变普通字段的问题。谢谢哦