主题：数据关联同步问题

 参考

 

 参考 http://www.foxtable.com/help/topics/2490.htm

 

 上传不了提示什么？打包成压缩文件上传。

上传参考 http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:例程3.rar

 是的，像12楼那样改

 

反正，代码里面，涉及到赋值的地方，都一起要改。

  

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:例程3.rar

 

 不明白你说什么意思，如果你测试可以，就是可以。

 已经写过给你了啊，不懂，就回去学帮助文档。

 

 http://www.foxtable.com/help/topics/1453.htm

 

If e.DataCol.Name = "生产调度令号" Then
    If e.NewValue Is Nothing Then
        e.DataRow("序号") = Nothing
        e.DataRow("工种") = Nothing
    Else
        Dim dr As DataRow
        dr = DataTables("订单登记表").Find("[生产调度令号] = '" & e.NewValue & "'")
        If dr IsNot Nothing
            e.DataRow("序号") = dr("序号")
            e.DataRow("工种") = dr("工种")
        End If
    End If
End If