以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]自定义项目... 与修改权限的问题!  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=13128)

--  作者:gaoyong30000
--  发布时间:2011/9/28 23:05:00
--  [求助]自定义项目... 与修改权限的问题!
自定义项目...  长文本显示  

如果列锁定不可修改的话   ...自动会消失  导致不可方便查看长文本信息

现在想实现:

自定义项目... 只允许 查看 不许手动点击...修改  并且能够显示...

之前在datacolchanging里使用了

If e.DataCol.Name = "最后一次回访情况"  Then
    e.cancel = True
End If

但是  的菜单保存按钮有这段代码

    Dim f As New Filler
    f.SourceTable = DataTables("销售意向客户进度管制") \'指定数据来源
    f.SourceCols = "编号,意向级别,最后联系日期,最后一次回访情况,备注" \'指定数据来源列
    f.DataTable = DataTables("意向客户历史回访情况") \'指定数据接收表
    f.DataCols = "编号,意向级别,最后联系日期,最后一次回访情况,备注" \'指定数据接收列
    f.ExcludeExistValue =True
    f.ExcludeNullValue =False
    f.Distinct =True
    f.Append =True
    f.Fill()

导致了 历史回访情况表 最后一次回访情况列 填充不进数据

从而 每点一次保存后  历史回访情况表 就增加一行 出了bug

请问该如何解决这一问题!

项目如下:

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:9.28.31.rar








--  作者:狐狸爸爸
--  发布时间:2011/9/29 8:34:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目106.rar


--  作者:gaoyong30000
--  发布时间:2011/9/29 9:03:00
--  

解决了 ~ 厉害  没注意到 单元格事件!