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


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

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

帅哥哟,离线,有人找我吗?
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

 回到顶部