- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助] 不相关记录的背景设定并锁住 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=145382)
-- 发布时间：2020/1/17 20:23:00
-- [求助] 不相关记录的背景设定并锁住
老师，请帮忙一下
表A 和 表B 以产品名称建立了关联。当在窗口中，选中某条记录后，其关联的表中出现相关产品名称的相应记录。
如何设置 ：使其只要“项目名称” 相同，底下关联的表中这条记录不做变动，其它记录背景就改成灰色并锁定，不能修改。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:test.foxdb |
-- 发布时间：2020/1/17 21:19:00
--
表B，prepareedit事件
If e.Table.Name = "表A.表B" Then
Dim pr As Row = Tables("表A").Current
If pr IsNot Nothing Then
If pr("项目名称") = e.Row("项目名称") Then
e.Cancel = True
End If
End If
End If
drawcell事件
If e.Table.Name = "表A.表B" Then
Dim pr As Row = Tables("表A").Current
If pr IsNot Nothing Then
If pr("项目名称") = e.Row("项目名称") Then
e.Style = "样式1"
End If
End If
End If