主题：[求助]不建立表关连能否自动引用其他表的数据

老师，你好，

如附件“销售单表”，想把此表的“销售单号”根据生产批号卷号自动输入到“复卷表”上的销售单号列上，是否可以实现。

备注：因“销售单号”是在有“生产批号卷号”后才给定的，不是在有“生产批号卷号”前给定，即先有“产批号卷号”后有“销售单号”，所以按传统方法建立表关连，实现不了，是否可以通过其他办法实现呢？

此主题相关图片如下：销售单表.png


此主题相关图片如下：复卷表.png

跨表引用

 

http://www.foxtable.com/webhelp/scr/1451.htm

 

老师，你好

我是新手，输入下面代码后，不会自动从销售单调取“销售单号”，请帮忙看看是哪里有问题。谢谢！

 

 

 

If e.DataCol.Name = "生产批号卷号" Then 
    If e.NewValue Is Nothing Then
        e.DataRow("销售单号") = Nothing
    Else
         Dim dr  As  DataRow   '
         dr =  DataTables("销售单").Find("[生产批号卷号] = '" & e.NewValue &  "'")
         If dr IsNot Nothing Then 
             e.DataRow("销售单号") = dr("销售单号")
         End  If
     End  If
 End If

销售单表的datacolchanged事件，加上代码

 

If e.DataCol.Name = "生产批号卷号" OrElse e.DataCol.Name = "销售单号" Then 
    DataTables("复卷").DataCols("生产批号卷号").RaiseDataColChanged("[生产批号卷号] = '" & e.datarow("生产批号卷号") &  "'")

End If

 

或者，可以直接在销售单表datacolchanged写代码

 

If e.DataCol.Name = "生产批号卷号" OrElse e.DataCol.Name = "销售单号" Then  
      DataTables("复卷").ReplaceFor("销售单号", e.DataRow("销售单号"), "[生产批号卷号] = '" & e.datarow("生产批号卷号") &  "'")
End If

我试了两周方法加上去，都不行。

 

就是在销售单表上输入生产批号卷号和销售单号后，在复卷表的销售单能根据销售单表上的生产批号卷号判断，自动输入销售单号。

 

我上传了整个项目文件夹，老师能否帮我看看。谢谢！

 没看到你上传的文件，直接在销售单表datacolchanged写代码

 

If e.DataCol.Name = "生产批号卷号" OrElse e.DataCol.Name = "销售单号" Then  
      DataTables("复卷").ReplaceFor("销售单号", e.DataRow("销售单号"), "[生产批号卷号] = '" & e.datarow("生产批号卷号") &  "'")
End If

 

 最后，记得重置列 http://www.foxtable.com/webhelp/scr/1469.htm

 

已解决，非常感谢！