生成的表我希望不能编辑，但是不行！还是能编辑 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

或者代码换个位置

f DataTables.Contains("产品明细")= False Then

Dim dtb As New DataTableBuilder("产品明细")

dtb.AddDef("AccountID", Gettype(Integer), 32)

dtb.AddDef("ProductID", Gettype(String), 32)

dtb.AddDef("ProductName", Gettype(String))

dtb.AddDef("ProductNumber", Gettype(Double))

dtb.AddDef("ProductPrice", Gettype(Double))

dtb.AddDef("ProductTotal", Gettype(Double))

dtb.AddDef("MainMemoEx", Gettype(String))

dtb.Build()

End If

DataTables("产品明细").AllowEdit = False

Tables("新建销售单_sale_list").DataSource =DataTables("产品明细")

Tables("新建销售单_sale_list").AllowEdit = False

'Tables("新建销售单_sale_list").Cols("ProductID").AllowEdit = False

'Tables("新建销售单_sale_list").Cols("ProductTotal").AllowEdit = False

''Tables("新建销售单_sale_list").Cols("").AllowEdit = False

'Tables("新建销售单_sale_list").Cols("ProductName").AllowEdit = False

Tables("新建销售单_sale_list").AddNew()

'Tables("新建销售单_Sale_List").Cols("ProductTotal").GrandTotal = True '指定要合计的列

'Tables("新建销售单_Sale_List").GrandTotal = True '显示合计模式

主题：生成的表 我希望不能编辑，但是不行 ！还是能编辑