主题：如何判断是否有关联数据，如果没有则打开一个窗口？

If e.DataCol.Name = "label" Then     如果是label列的内容发生了变化

    Dim dr As DataRow
    dr = DataTables("表B").Find("名称 = " & "'" & e.DataRow("label") & "'" )  

    If dr Is Nothing Then   如果表B中不存在相同的记录

     Forms("添加档口").Open()    打开“添加档口”窗口    

    End If
End If

看下是不是这样