Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]


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

主题：[求助]
帅哥哟，离线，有人找我吗？
wumingrong1
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00 		[求助]  发帖心情 Post By：2015/8/27 17:08:00 [显示全部帖子]

有表间条件填充公式如下：将【GPON口与分纤盒对应关系表】中符合条件的【分纤盒编号】内容填写到【 OLT设备端口密码表】相对应的【分纤盒编号】中去；但是以下命令只能填充一个内容；如果【GPON口与分纤盒对应关系表】中存在多条符合条件的内容，我该怎么实现通过“，”进行分隔填入到【分纤盒编号】中去?

For Each r As Row In Tables("OLT设备端口密码表").Rows
Dim dr As DataRow = DataTables("GPON口与分纤盒对应关系表").Find("机房名称 = '" & r("机房名称") & "' and 设备名称 = '" & r("设备名称") & "' and 设备端口 = '" & r("设备端口") & "'")
If dr IsNot Nothing Then
For Each s As String In "分纤盒编号".Split("|")
r(s) = dr(s)
Next
End If

如果我想实现以下效果，命令该怎么修改？

 GPON口与分纤盒对应关系表                                            OLT设备端口密码表                                                      

机房名称    设备名称     设备端口      分纤盒编号                 机房名称    设备名称     设备端口      分纤盒编号

A              B              C               1                             A             B               C              1，2，3
A              B              C               2
A              B              C               3             
 回到顶部
帅哥哟，离线，有人找我吗？
wumingrong1
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00 		  发帖心情 Post By：2015/8/27 17:39:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：360截图20150827173929517.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
wumingrong1
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00 		  发帖心情 Post By：2015/8/28 9:40:00 [显示全部帖子]

5楼的命令没有任何效果。是不是没写对哦？

 回到顶部
帅哥哟，离线，有人找我吗？
wumingrong1
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00 		  发帖心情 Post By：2015/8/28 11:27:00 [显示全部帖子]

还是不行哦，帮忙看一下附件；相实现点击某一按钮后，在【B表】的【分纤盒编号】中能够自动填入【A表】中符合【机房名称】【设备名称】【设备端口】都相同的所有【分纤盒编号】、并以"，"分隔开来。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目20.foxdb
 回到顶部
帅哥哟，离线，有人找我吗？
wumingrong1
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00 		  发帖心情 Post By：2015/8/28 11:51:00 [显示全部帖子]

好像不行哦

 回到顶部
帅哥哟，离线，有人找我吗？
wumingrong1
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00 		  发帖心情 Post By：2015/8/28 12:22:00 [显示全部帖子]

不好意思，我测试的怎么就是不行呢？我在附件中做了个按钮、写入了你给的命令；点击后就是没有实现想要的功能。

我是想实现：在【B表】的【分纤盒编号】中、填入【A表】中【机房名称】【设备名称】【设备端口】与【B表】相同的【分纤盒编号】的内容；然后使用“，”分隔开来。

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目20.foxdb
 回到顶部
帅哥哟，离线，有人找我吗？
wumingrong1
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00 		  发帖心情 Post By：2015/8/28 14:31:00 [显示全部帖子]

我终于明白是什么情况啦，原来是我想实现往【表B】中的【分纤盒编号】列填入：“11，12”、“13,25”；而您写的命令是将【表B】中的【分纤盒编号】列拆分出来。。。

能不能帮我改把命令改成我需要的？
[此贴子已经被作者于2015/8/28 14:32:02编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
wumingrong1
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00 		  发帖心情 Post By：2015/8/28 22:54:00 [显示全部帖子]

如果我想实现附件中的功能，我的命令该怎么写？如下命令好像行不通 
如果【表B】中的【设备端口】列 包含(like)有【表A】的【设备端口】列内容；那么在【表B】的【分纤盒编号】中填入【表A】符合条件的【分纤盒编号】内容；用“，”分隔开来 

 For Each r1 As Row In Tables("表B").Rows 
 Dim str1 As String=DataTables("表A").GetComboListString("分纤盒编号"," '%" & r1("设备端口") & "%' like 设备端口") 
 str1 = str1.Replace("|", ",") 
 r1("分纤盒编号") = str1 

 Next
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目20.foxdb

[此贴子已经被作者于2015/8/28 22:55:18编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05859 秒, 8 次数据查询