* 1. 打开数据表

USE student.dbf SHARED IN 0  && 假设你有一个名为 student.dbf 的表

* 2. 创建表单对象
frm = CREATEOBJECT("Form")
WITH frm
    .Caption = "学生信息表格"      && 表单标题
    .Width = 500
    .Height = 350
    .AutoCenter = .T.            && 表单居中显示
ENDWITH

* 3. 动态添加表格(Grid)控件
 grd=frm.AddObject("grid1", "Grid")


 WITH grd  报错:  data  type mismatch
     .Top = 20
     .Left = 20
     .Width = 460
     .Height = 280
     .RecordSource = "student"    && 绑定数据源为 student 表
     .Visible = .T.               && 设置控件可见
 ENDWITH

* 4. 添加一个关闭按钮
 cmdClose = frm.AddObject("cmdClose", "CommandButton")
 WITH cmdClose
    .Top = 310
    .Left = 200
    .Caption = "关闭"
   .Visible = .T.
 ENDWITH

* 5. 显示表单
frm.Show(1)  && 1 表示以模态方式显示

WITH grd  报错:  data  type mismatch
把 grd 改成 grid 试试
WITH grid

不行，是程序问题，还是方法问题

frm = CREATEOBJECT("Form")

* 3. 动态添加表格(Grid)控件
 grd=frm.AddObject("grid1", "Grid")
* 4. 添加一个关闭按钮
 cmdClose = frm.AddObject("cmdClose", "CommandButton")
frm grd 好象不是同一类
grd cmdClose 是同类
data  type mismatch

WITH frm.grid1
     .Top = 20
     .Left = 20
     .Width = 460
     .Height = 280
     .RecordSource = "student"    && 绑定数据源为 student 表
     .Visible = .T.               && 设置控件可见
 ENDWITH
WITH frm.cmdClose
    .Top = 310
    .Left = 200
    .Caption = "关闭"
   .Visible = .T.
 ENDWITH
这样改，参考addobject方法示例
基础不牢，地动山摇

谢谢，解决