主题：根据2350.htm设计的下拉列表出错，帮忙分析下

目前建立了两个表：客户列表、安装（用来记录设备安装），两个表都想取消在表中编辑，双击鼠标后在模式窗口中输入。

这个是客户列表录入窗口才会出现的提示。。。

没发现报错啊

第一行没有报错，第三行、第四行我试着就报错了。

统统没发现问题.

但是没有实现效果，只能输入安装科室、不能同时输入省份、医院名称、医院号。。。

你把我搞晕了,你到底是想怎么样.

你在客户表的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

谢谢狐狸爸爸，昨晚发现这个问题，就是想不通，为什么安装表的下拉列表，会触发客户列表的事件。。。。。