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


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

主题:按条件批量添加多行所对应的图片

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


加好友 发短信
等级:超级版主 帖子:110669 积分:563259 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/6/18 11:58:00 [显示全部帖子]

遍历所有行,一行行处理:http://www.foxtable.com/webhelp/topics/0419.htm

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110669 积分:563259 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/6/18 13:41:00 [显示全部帖子]

请上传实例说明,我不知道您项目表格数据具体是怎么样的

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110669 积分:563259 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/6/18 14:47:00 [显示全部帖子]

图片怎么和订单编号、品名、生产日期这些数据关联起来?

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110669 积分:563259 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/6/18 15:38:00 [显示全部帖子]

添加什么列我不管。我就想知道,图片怎么和表格数据关联?或者说怎么知道某个图片是100000001编号的图片?

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110669 积分:563259 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/6/18 15:55:00 [显示全部帖子]

没看懂您说的意思。

如果图片名称和数据没有什么关联的,是无法使用代码处理的,只能手工添加图片

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110669 积分:563259 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/6/18 17:37:00 [显示全部帖子]

pr是什么东西?
Dim syms As List(of DataRow) = DataTables("rs_sourcecode").SQLSelect("nowdepart = '" & fr("nowdepart") & "' And inno = '" & fr("inno") & "'  And prodate = '" & fr("prodate") & "'") 
msgbox(syms.count) ‘有没有符合条件的数据?

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110669 积分:563259 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/6/18 20:15:00 [显示全部帖子]

没看懂这个代码要干嘛。不用管代码,请使用文字说明具体要做什么?

fr就是当前行,编号是唯一的,所以
Filter 这个查询条件对应的就是当前行。上面代码只是把当前行的数据又赋值回当前行里,相当于什么都没做

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110669 积分:563259 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/6/18 20:56:00 [显示全部帖子]

嗯,看错了,看做是同一个编号列了。这样我测试没有问题哦。这个貌似和TextBox1没有什么关系了,选中相关资料有值的行,直接这样即可

     Dim fr As Row = Tables("采购订单").Current
     Dim Filter As String = "[订单编号] = '" & fr("订单编号") & "'"
     DataTables("采购订单").ReplaceFor("相关资料", fr("相关资料"), Filter)

 回到顶部