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


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

主题:[求助]

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


加好友 发短信
等级:婴狐 帖子:10 积分:137 威望:0 精华:0 注册:2020/12/24 22:34:00
[求助]  发帖心情 Post By:2020/12/26 18:12:00 [只看该作者]

材料表=流水账,东仓库=花岗岩,1号,东仓库需要在材料表里获取关于花岗岩,1号的数据

1、借鉴跨表引用案例编写的代码能不能用? 2、如果代码可用,在哪里录入?找不到录入代码的地方
 If e.DataCol.Name = "材料表" Then Dim nms() As String = {"花岗岩","1号","日期","库类""形态","品类""性质","供应商或生产方""领用人","车牌号","车辆数""规格","运输起点""运输终点","运输距离""计量规格","计量单位","数量""单价","金额"} 
 If e.NewValue Is Nothing Then 
    For Each nm As String In nms 
       e.DataRow(nm) = Nothing
   Next 
 Else 
   Dim dr As DataRow 
   dr = DataTables("花岗岩").Find("[1号] = '" & e.NewValue & "'") 
   If dr IsNot Nothing 
      For Each nm As String In nms 
         e.DataRow(nm) = dr(nm) 
     Next 
 End If 
 End If 
End If
[此贴子已经被作者于2020/12/26 18:16:14编辑过]

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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/12/27 19:58:00 [只看该作者]


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


加好友 发短信
等级:婴狐 帖子:10 积分:137 威望:0 精华:0 注册:2020/12/24 22:34:00
  发帖心情 Post By:2020/12/28 9:39:00 [只看该作者]

哎呀,代码写上去没有反应,材料表=流水账,东仓库=花岗岩,1号,东仓库需要在材料表里获取关于花岗岩,1号的数据
If e.DataCol.Name = "材料表" Then Dim nms() As String = {"日期","库类""形态","品类""性质","供应商或生产方""领用人","车牌号","车辆数""规格","运输起点""运输终点","运输距离""计量规格","计量单位","数量""单价","金额"} 
 If e.NewValue Is Nothing Then 
    For Each nm As String In nms 
       e.DataRow(nm) = Nothing
   Next 
 Else 
   Dim dr As DataRow 
   dr = DataTables("花岗岩").Find("[1号] = '" & e.NewValue & "'") 
   If dr IsNot Nothing 
      For Each nm As String In nms 
         e.DataRow(nm) = dr(nm) 
     Next 
 End If 
 End If 
End If

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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/12/28 11:24:00 [只看该作者]

If e.DataCol.Name = "材料表" Then
    Dim nms() As String = {"日期","库类""形态","品类""性质","供应商或生产方""领用人","车牌号","车辆数""规格","运输起点""运输终点","运输距离""计量规格","计量单位","数量""单价","金额"}
    If e.NewValue Is Nothing Then
        For Each nm As String In nms
            e.DataRow(nm) = Nothing
        Next
    Else
        Dim dr As DataRow
        dr = DataTables("花岗岩").Find("[1号] = '" & e.NewValue & "'")
        If dr IsNot Nothing
            For Each nm As String In nms
                e.DataRow(nm) = dr(nm)
            Next
        End If
    End If
End If

如果还有问题,说明不存在符合条件的数据

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


加好友 发短信
等级:婴狐 帖子:10 积分:137 威望:0 精华:0 注册:2020/12/24 22:34:00
  发帖心情 Post By:2020/12/30 18:16:00 [只看该作者]

老师,你是不是没写全,和我上传的一模一样

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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/12/31 8:38:00 [只看该作者]

说明不存在符合条件的数据,具体请上传实例说明

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


加好友 发短信
等级:婴狐 帖子:10 积分:137 威望:0 精华:0 注册:2020/12/24 22:34:00
  发帖心情 Post By:2021/1/1 18:39:00 [只看该作者]

希望能实现总表记录,相对应的子库分品种与型号同步记录
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1_202101011837.zip


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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/1/3 9:59:00 [只看该作者]

完全看不懂这些表和代码的关系,请手工填写举例说明一下:哪个表填入什么数据,其它表相应增加什么数据?

 回到顶部