Foxtable(狐表) → 用户栏目 → 专家坐堂 → 按条件批量添加多行所对应的图片


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

主题：按条件批量添加多行所对应的图片
帅哥哟，离线，有人找我吗？
weibu
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：659 积分：5357 威望：0 精华：0 注册：2018/5/19 22:27:00 		按条件批量添加多行所对应的图片  发帖心情 Post By：2020/6/18 11:05:00 [显示全部帖子]

老师我这边建立了外网的FTp。想达到按条件如：产品名称相同、生成日期相同的多次采购的采购单。对应的相关图片资料相同。
就是怎么批量按条件设置多行所对应的ftp图片。
因为这个条件对应的图片文档相同。不用一条一条去添加
[此贴子已经被作者于2020/6/18 11:05:52编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
weibu
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：659 积分：5357 威望：0 精华：0 注册：2018/5/19 22:27:00 		  发帖心情 Post By：2020/6/18 12:28:00 [显示全部帖子]

老师是按品名和生产日期筛选符合条件的行后再遍历去一条一条赋值吧。
因为我这边现在看到是咱们狐表内置的图片管理器。
如果实现上面的需求，我代码如何写，如何把图片目录遍历赋值？

老师这个思路，是我先用图片管理器添加一条的信息。再把其他符合条件的行，取已添加这一条数据的图片列的值吗？
还是怎么样？
[此贴子已经被作者于2020/6/18 12:43:18编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
weibu
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：659 积分：5357 威望：0 精华：0 注册：2018/5/19 22:27:00 		  发帖心情 Post By：2020/6/18 14:34:00 [显示全部帖子]

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


老师这是我的思路，专门做了一个窗口去给符合条件的数据关联图片资料；
真实业务数据量比较大，有可能一次关联相同图片数据达到几千条。
但不知道代码如何写？真实业务是建立外网的ftp。

相同订单编号、品名、生产日期的数据，列“相关资料”相同；

[此贴子已经被作者于2020/6/18 14:35:42编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
weibu
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：659 积分：5357 威望：0 精华：0 注册：2018/5/19 22:27:00 		  发帖心情 Post By：2020/6/18 15:04:00 [显示全部帖子]

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

老师表里面我添加了“编号”字段。每条数据都有一个编号；用编号管理图片行吗？
一条数据可能关联的是多张图片；
 回到顶部
帅哥哟，离线，有人找我吗？
weibu
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：659 积分：5357 威望：0 精华：0 注册：2018/5/19 22:27:00 		  发帖心情 Post By：2020/6/18 15:50:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：微信截图_20200618154711.png
图片点击可在新窗口打开查看

老师狐表图片管理器，添加图片后，我看是通过目录+文件名关联的；
我这边也按照这个行吗？
我先通过图片管理器选择好对应图片，可能是多个图片；
然后符合提交的多行“相关资料”值。就是我选择的图片管理器的值行吗？
 回到顶部
帅哥哟，离线，有人找我吗？
weibu
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：659 积分：5357 威望：0 精华：0 注册：2018/5/19 22:27:00 		  发帖心情 Post By：2020/6/18 17:32:00 [显示全部帖子]

老师这个代码为什么没有fr("isagent")的值赋给 sym("isagent") ，哪个地方有问题？

If e.Form.Controls("TextBox1").Value IsNot Nothing Then 
     Dim fr As Row = Tables("rs_sourcecode").Current
     If fr IsNot Nothing Then
    Dim syms As List(of DataRow) = DataTables("rs_sourcecode").SQLSelect("nowdepart = '" & fr("nowdepart") & "' And inno = '" & fr("inno") & "'") 
     For Each sym As DataRow In syms
                 sym("isagent") = fr("isagent")
     Next
        DataTables("rs_sourcecode").SQLUpdate(syms)   '更新数据库溯源码表中的是否可用状态      
        DataTables("rs_outsideout").Save()
        MessageBox.Show(fr("qdocuments"))
        MessageBox.Show("绑定成功!", "提示")
        'e.Form.Close
End If
End If
[此贴子已经被作者于2020/6/18 17:36:35编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
weibu
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：659 积分：5357 威望：0 精华：0 注册：2018/5/19 22:27:00 		  发帖心情 Post By：2020/6/18 18:04:00 [显示全部帖子]

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



msgbox(syms.count) ‘有没有符合条件的数据？
有符合数据，显示数量为2；


这个代码有问题，也是不能更新，附件项目资料，有个窗口，窗口中按钮的click代码


If e.Form.Controls("TextBox1").Value IsNot Nothing Then 
     Dim fr As Row = Tables("采购订单").Current
     Dim Filter As String = "[订单编号] = '" & fr("订单编号") & "'"
     DataTables("采购订单").ReplaceFor("相关资料", fr("相关资料"), Filter)
End If
[此贴子已经被作者于2020/6/18 18:05:47编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
weibu
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：659 积分：5357 威望：0 精华：0 注册：2018/5/19 22:27:00 		  发帖心情 Post By：2020/6/18 20:27:00 [显示全部帖子]

我想做的是在“采购订单”表中筛选和当前行的“订单编号”相同的行，并把当前行列“相关资料”的值赋值给符合条件的其他行

老师我的“订单编号”值不是唯一值。很多行的“订单编号”是相同的。
[此贴子已经被作者于2020/6/18 20:28:33编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 8 次数据查询