Foxtable(狐表)用户栏目专家坐堂 → 无法重复调取信息


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

主题:无法重复调取信息

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


加好友 发短信
等级:幼狐 帖子:97 积分:839 威望:0 精华:0 注册:2018/3/1 9:46:00
无法重复调取信息  发帖心情 Post By:2018/7/16 11:55:00 [只看该作者]

For Each dr1 As DataRow In DataTables("委托台账").DataRows
    Dim dr2 As DataRow = DataTables("工作日志新增").Find("委托编号 = '" & dr1("委托编号") & "'" )
    If dr2 IsNot Nothing Then
        dr2("委托项目") = dr1("检测项目")
        dr2("委托部位") = dr1("检测部位")
        dr2("委托数量") = dr1("检测数量")
    End If
Next

现在的语句是这个,在工作日志新增表中新增第一行,输入委托编号后可以正常调取委托项目、委托部位的信息,但是第二行输入同一个编号的时候,就无法调取了,显示空白,请问怎么修改?

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/7/16 12:17:00 [只看该作者]

代码应该这样写

 

    Dim dr2 = Tables("工作日志新增").Current
    Dim dr1 As DataRow = DataTables("委托台账").Find("委托编号 = '" & dr2("委托编号") & "'" )
    If dr1 IsNot Nothing Then
        dr2("委托项目") = dr1("检测项目")
        dr2("委托部位") = dr1("检测部位")
        dr2("委托数量") = dr1("检测数量")
    End If
[此贴子已经被作者于2018/7/16 18:13:37编辑过]

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


加好友 发短信
等级:幼狐 帖子:97 积分:839 威望:0 精华:0 注册:2018/3/1 9:46:00
  发帖心情 Post By:2018/7/16 17:07:00 [只看该作者]

类似的问题
有两个表,“检测资料存档”和“检测资料上传”,部分列为多文档存储的类型
写入的时候在“上传”表中录入,写完后按照“委托编号”将相关内容拷贝到“存档”表中
现在想再次录入的时候讲“存档”表的内容拷贝过来,“上传”表中增加相应文件后,再次复制到“存档”表


现在“上传”表属性的datacolchange是下面的语句

For Each dr1 As DataRow In DataTables("检测资料存档").DataRows
    Dim dr2 As DataRow = DataTables("检测资料上传").Find("委托编号 = '" & dr1("委托编号") & "'" )
    If dr2 IsNot Nothing Then
        dr2("检测视频") = dr1("检测视频")
        dr2("原始数据及轴线") = dr1("原始数据及轴线")
        dr2("报告及数据") = dr1("报告及数据")
    End If
Next

“存档”表类似
请问怎么能修改呢?

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/7/16 18:13:00 [只看该作者]

    Dim dr2 = e.DataRow

    Dim dr1 As DataRow = DataTables("检测资料存档").Find("委托编号 = '" & dr2("委托编号") & "'" )

    If dr1 IsNot Nothing Then
        dr2("检测视频") = dr1("检测视频")
        dr2("原始数据及轴线") = dr1("原始数据及轴线")
        dr2("报告及数据") = dr1("报告及数据")
    End If
[此贴子已经被作者于2018/7/16 18:13:47编辑过]

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


加好友 发短信
等级:幼狐 帖子:97 积分:839 威望:0 精华:0 注册:2018/3/1 9:46:00
  发帖心情 Post By:2018/7/17 8:36:00 [只看该作者]

现在是从“存档”表复制到“上传”表后,再上传时无法显示上传的文件,但是查看文件夹已经传过来了


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/7/17 8:40:00 [只看该作者]

以下是引用lungby在2018/7/17 8:36:00的发言:
现在是从“存档”表复制到“上传”表后,再上传时无法显示上传的文件,但是查看文件夹已经传过来了

 

做一个实例发上来说明你要做什么。


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


加好友 发短信
等级:幼狐 帖子:97 积分:839 威望:0 精华:0 注册:2018/3/1 9:46:00
  发帖心情 Post By:2018/7/17 10:58:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:测试.rar


现在“上传”表中新增后直接复制到“存档”表,但是再次上传同一编号的时候,从“存档”表再次复制过来的话,新上传的文件显示不出来,虽然后台已经上传了
请问怎么解决呢?
另外,可以让存档表里面的按编号只显示1条吗,就是不管上传多少次,“存档”里至显示一个编号
麻烦了

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/7/17 12:23:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:测试.table


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


加好友 发短信
等级:幼狐 帖子:97 积分:839 威望:0 精华:0 注册:2018/3/1 9:46:00
  发帖心情 Post By:2018/7/17 15:25:00 [只看该作者]

不好意思,还是实现不了,可能我说的太复杂了,“上传”表想实现的目的如图

图片点击可在新窗口打开查看此主题相关图片如下:无标题1.jpg
图片点击可在新窗口打开查看

另外,“存档”表里面的同一编号的还是不能合并起来

请指教下,谢谢

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


加好友 发短信
等级:超级版主 帖子:106464 积分:541467 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/7/17 17:30:00 [只看该作者]

没看懂你的逻辑。详细说明一下处理步骤

 回到顶部
总数 11 1 2 下一页