以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]表与表之间的关系  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=45204)
--  作者：zouxinhao
--  发布时间：2014/1/18 11:15:00
--  [求助]表与表之间的关系
现有表A里面有A1,A2列
     表B里面有A1,B1列
在不关联的前提下怎么实现以下问题：
 在表B的A1列中的单元格值等于表A的A1列中的单元格值的情况下：
    如果表A中此行的A2列值为a时，表B中此行的的B1列的单元格不能编辑
    如果表A中此行的A2列值为b时，表B中此行的的B1列的单元格可以编辑
求大神解答！  
--  作者：zouxinhao
--  发布时间：2014/1/18 11:18:00
--  
表A中的A1列的值是不重复的，表B中的A1列的值是重复的
--  作者：Bin
--  发布时间：2014/1/18 11:25:00
--  
利用FIND找到符合条件的行.
然后设置即可

此代码放在表B的 PrepareEdit 事件

If e.Col.name="第二列" Then
    Dim dr As DataRow = DataTables("表A").Find("第一列=\'" & e.Row("第一列") & "\'")
    If dr IsNot Nothing Then
        If dr("第二列")="a" Then
            e.Cancel=True
        End If
    End If
End If