以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 条件填充公式不生效  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=58723)
--  作者：wumingrong1
--  发布时间：2014/10/22 17:02:00
--  [求助] 条件填充公式不生效
我在“FTTH”表DataColChanged中写有以下命令。目的是想实现：

当 "FTTH"表中的\'ONU编号\'列内容发生变化时，

检查“OLT关联数据表”中的‘olt’‘OLT端口’‘ONU编号’的三列内容与“FTTH”表中当前行内容相同时，

将“OLT关联数据表”中‘cvlan’和‘shebeixinghao’两列的内容复制到“FTTH”表相对应的列中去。

可是以下命令不起作用，帮我看看错在哪啦？（没有错误提示）


If  e.DataCol.Name = "ONU编号"   Then \'如果更改的是 ***列 和 ***列

For Each r As Row In Tables("OLT关联数据表").Rows

Dim dr As DataRow = DataTables("FTTH").Find("olt = \'" & r("olt") & "\' and OLT端口 = \'" & r("OLT端口") & "\' and ONU编号 = \'" & r("ONU编号") & "\'")

If dr IsNot Nothing Then

For Each s As String In "cvlan|shebeixinghao".Split("|")
dr(s) = r(s)

Next
End If
Next
End If
--  作者：Bin
--  发布时间：2014/10/22 17:09:00
--  
用Select找出对应的行,然后遍历Select出来的行http://www.foxtable.com/help/topics/0400.htm

If  e.DataCol.Name = "ONU编号"   Then \'如果更改的是 ***列 和 ***列
     for each r as datarow in Datatables("OLT关联数据表").select("olt = \'" & r("olt") & "\' and OLT端口 = \'" & r("OLT端口") & "\' and ONU编号 = \'" & r("ONU编号") & "\'")
          e.datarow("cvlan")=r("cvlan")
     next
End If