你在客户表的DataColChanged事件的代码是：

Select Case e.DataCol.name

    Case "医院名称","安装科室"

        Dim dr As DataRow = e.DataRow

        If dr.IsNull("医院名称") = False AndAlso dr.IsNull("安装科室") = False Then

            If e.DataTable.Compute("Count([_Identify])","医院名称 = \'" & dr("医院名称") & "\' And 安装科室 = \'" & dr("安装科室") & "\'") > 1 Then

                MessageBox.Show("该客户已经登记过了!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

                e.DataRow(e.DataCol.Name) = e.OldValue \'取消输入

            End If

        End If

End Select

有提示，就是有重复啊，自己写的代码，自己分析一下。

然后分析，你下拉窗口是用来输入安装表，怎么会触发客户表的DatacolChanged事件呢，显然不正常。

检查你的下拉窗口的事件，发现目录树双击事件的代码为(你留意红色的这一行)：

If e.Node.Level = 3 Then \'如果单击的是第四层节点
    Dim ps() As String = e.Node.FullPath.Split("\\")
    Dim tr As Row = Tables("客户列表").Current
    Dim dr As DataRow = DataTables("客户列表").Find("省份 = \'" & ps(0) & "\' And 医院名称 = \'" & ps(1) & "\' And 安装科室 = \'" & ps(2) & "\' And 客户号  = \'" & ps(3) & "\'")
    If dr IsNot Nothing Then \'如果在行客户列表找到对应的行,则将此行的值写入安装表的当前行.
        tr("客户号") = dr("客户号")
        tr("省份") = dr("省份")
        tr("医院名称") = dr("医院名称")
        tr("安装科室") = dr("安装科室")
        e.Form.DropDownBox.Value = tr("安装科室") \'这行不是多余的,省略此行,无法在表中正常使用此下拉窗口输入数据.
    End If
    e.Form.DropDownBox.CloseDropdown()  \'关闭下拉目录树
End If

很明显，红色的错了，应该是：

 Dim tr As Row = Tables("安装").Current

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

点击浏览该文件:管理项目119.table