以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  一个问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=73105)
--  作者：wlcycxy
--  发布时间：2015/8/12 15:39:00
--  一个问题
如果A列某行有数据，则B列同一行根据A列的数据计算并填充（不能修改），如果A列某行无数据，则B列同一行可以任意修改填充并保存，该如何设置代码呢？
--  作者：大红袍
--  发布时间：2015/8/12 15:41:00
--  

自动填充参考

 

http://www.foxtable.com/help/topics/1451.htm

 
--  作者：大红袍
--  发布时间：2015/8/12 15:45:00
--  

是否可以修改,去编写prepareEdit事件

 

Select Case e.Col.Name
   
    Case "第二列", "第三列"
        Dim fdr As DataRow = DataTables("表A").find("第一列 = \'" & e.Row("第一列") & "\'")
        If fdr IsNot Nothing Then
            If fdr.isNull(e.Col.name) = False Then
                e.cancel = True
            End If
        End If
       
End Select