以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]刀具库管理表  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=87914)
--  作者：利森
--  发布时间：2016/7/22 13:34:00
--  [求助]刀具库管理表
问题：
      现在有三个表：刀具库位表，刀具领用表，刀具归库表
刀具编号是唯一的，
如果刀具被领出之后，未归还之前，刀具库位表中， <在库> 列自动显示"否", 
否则，默认显示 “是”

这个如何实现？
--  作者：利森
--  发布时间：2016/7/22 13:55:00
--  
大红袍老师，请抽空指导下。
--  作者：大红袍
--  发布时间：2016/7/22 14:50:00
--  

 跨表引用，编写dataColChanged事件

 

If e.DataCol.Name = "编号" Then

    Dim fdr As DataRow = DataTables("库位表").Find("编号 = \'" & e.DataRow("编号") & "\')

    If fdr IsNot Nothing Then

        fdr("在库") = False

    End If

End If