Foxtable(狐表)用户栏目专家坐堂 → 使用加载树时,跨表数据无法正常引用


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

主题:使用加载树时,跨表数据无法正常引用

帅哥,在线噢!
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

Select Case e.DataCol.Name
    Case "库存数量","补充数量","物料描述","规格型号","单位","物料属性","采购在途","单价"
        Dim Filter As String = "[物料代码] = '" & e.DataRow("物料代码") & "'"
        Dim drs As List(Of DataRow) = DataTables("采购订单").sqlSelect(Filter)
        For Each dr As DataRow In drs
            dr(e.DataCol.Name) = e.NewValue
        Next
DataTables("采购订单").SQLUpdate(drs)
DataTables("采购订单").RemoveFor(Filter)
DataTables("采购订单").AppendLoad(Filter)
End Select


第二段
……
Else
        Dim dr As DataRow
dr = DataTables("物料信息").Find("[物料代码] = '" & e.NewValue & "'")
If dr Is Nothing Then
    dr = DataTables("物料信息").SQLFind("[物料代码] = '" & e.NewValue & "'")
End If
If dr IsNot Nothing
……

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110801 积分:563943 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/10/7 12:03:00 [显示全部帖子]

和这段代码没有关系,贴出采购订单datacolchanged完整代码

 回到顶部
帅哥,在线噢!
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110801 积分:563943 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/10/7 13:49:00 [显示全部帖子]

DataTables("采购订单").SQLUpdate(drs)        
DataTables("采购订单").RemoveFor(Filter)        
DataTables("采购订单").AppendLoad(Filter)

改为下面试试

DataTables("采购订单").SQLUpdate(drs) 
DataTables("采购订单").Load()

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110801 积分:563943 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/10/7 14:34:00 [显示全部帖子]

上传具体实例测试

 回到顶部
帅哥,在线噢!
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110801 积分:563943 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/10/7 14:42:00 [显示全部帖子]

只能上传2M以内的文件,上传项目文件和数据库即可,其他多余文件不需要。如果太大,可以放到云盘,然后提供下载链接

 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110801 积分:563943 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/10/7 16:04:00 [显示全部帖子]

上面这段代码只是新增和赋值,和删除没有关系,也不会导致上面提示中的错误

 回到顶部