Foxtable(狐表) → 用户栏目 → 专家坐堂 → 生成的表 我希望不能编辑，但是不行 ！还是能编辑


  共有3238人关注过本帖树形打印复制链接

主题：生成的表 我希望不能编辑，但是不行 ！还是能编辑
帅哥哟，离线，有人找我吗？
jjun2002cn
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：148 积分：1519 威望：0 精华：0 注册：2016/11/8 7:15:00 		生成的表 我希望不能编辑，但是不行 ！还是能编辑  发帖心情 Post By：2020/3/23 17:13:00 [只看该作者]

'加载表格
If DataTables.Contains("Sale_List") = False Then
DataTables.Load("Sale_List")
End If

'生成临时表

If 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()
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").Cols("ProductName").AllowEdit = False
'
'

End If

Tables("新建销售单_sale_list").AddNew()
'
'Tables("新建销售单_Sale_List").Cols("ProductTotal").GrandTotal = True '指定要合计的列
'Tables("新建销售单_Sale_List").GrandTotal = True '显示合计模式
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/3/23 17:50:00 [只看该作者]

在表格里还能直接编辑？我测试没有问题，上传实例看看

 回到顶部
帅哥哟，离线，有人找我吗？
jjun2002cn
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：148 积分：1519 威望：0 精华：0 注册：2016/11/8 7:15:00 		  发帖心情 Post By：2020/3/23 18:41:00 [只看该作者]


[此贴子已经被作者于2020/3/23 23:00:55编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
jjun2002cn
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：148 积分：1519 威望：0 精华：0 注册：2016/11/8 7:15:00 		  发帖心情 Post By：2020/3/23 18:43:00 [只看该作者]

请帮我看一下谢谢！我的目的是数量和价格是可以编辑的总价格是自动运算的，产品名称和编码都是只能在原有的数据库里选择！

 回到顶部
帅哥哟，离线，有人找我吗？
jjun2002cn
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：148 积分：1519 威望：0 精华：0 注册：2016/11/8 7:15:00 		  发帖心情 Post By：2020/3/23 18:45:00 [只看该作者]

我连的的是外部数据库！

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/3/23 20:33:00 [只看该作者]

连不到数据库无法测试。把窗口设计属性的允许编辑改为false试试。

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/3/23 20:34:00 [只看该作者]

或者代码换个位置

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").Cols("ProductName").AllowEdit = False
'
'
Tables("新建销售单_sale_list").AddNew()
'
'Tables("新建销售单_Sale_List").Cols("ProductTotal").GrandTotal = True '指定要合计的列
'Tables("新建销售单_Sale_List").GrandTotal = True '显示合计模式
 回到顶部
帅哥哟，离线，有人找我吗？
jjun2002cn
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：148 积分：1519 威望：0 精华：0 注册：2016/11/8 7:15:00 		  发帖心情 Post By：2020/3/23 22:58:00 [只看该作者]

连不到数据库无法测试。把窗口设计属性的允许编辑改为false试试。
按照这个试了一下问题解决了！ 谢谢！
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询