Foxtable(狐表)用户栏目专家坐堂 → [求助] 条件填充公式不生效


  共有3059人关注过本帖树形打印复制链接

主题:[求助] 条件填充公式不生效

帅哥哟,离线,有人找我吗?
wumingrong1
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1029 积分:6497 威望:0 精华:0 注册:2014/1/3 12:49:00
[求助] 条件填充公式不生效  发帖心情 Post By: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
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By: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

 回到顶部