主题：[求助] 多控件的下拉菜单提示错误

1、该列，表属性，设置日期格式成 datelongtime

2、用你上面的代码，去掉一些判断就行了。

 哦，你那句 dt = dt.Date 去掉，这句代码的意思是取日期值，不要时间

 你在窗口2中，明明就赋值了

           Forms("窗口1").Controls("板盘类型" & i).Text = dr("板盘类型")
            Forms("窗口1").Controls("板盘端子名称" & i ).Text = dr("板盘端子名称")
            Forms("窗口1").Controls("机柜编号" & i).Text = dr("机柜编号")
            Forms("窗口1").Controls("板盘的类型" & j).Text = dr("板盘类型")
            Forms("窗口1").Controls("板盘端子的名称" & j ).Text = dr("板盘端子名称")
            Forms("窗口1").Controls("机柜的编号" & j).Text = dr("机柜编号")

Dim i As String = Right(e.Form.DropDownBox.Name, 1)
Dim j As String = Right(e.Form.DropDownBox.Name, 1)

If e.Node.Level = 2 Then '如果单击的是第二层节点
    Dim ps() As String = e.Node.FullPath.Split("\")
    Dim dr As DataRow = DataTables("表B").Find("板盘类型 = '" & ps(0) & "'And 机柜编号 = '" & ps(1) & "' And 板盘端子名称 = '" & ps(2) & "'")
    If dr IsNot Nothing Then '如果在行政区域表找到对应的行,则将此行的值写入客户表的当前行.
        If e.Form.DropDownBox.Name.StartsWith("板盘类型") Then
            Forms("窗口1").Controls("板盘类型" & i).Text = dr("板盘类型")
            Forms("窗口1").Controls("板盘端子名称" & i ).Text = dr("板盘端子名称")
            Forms("窗口1").Controls("机柜编号" & i).Text = dr("机柜编号")
        Else
            Forms("窗口1").Controls("板盘的类型" & j).Text = dr("板盘类型")
            Forms("窗口1").Controls("板盘端子的名称" & j ).Text = dr("板盘端子名称")
            Forms("窗口1").Controls("机柜的编号" & j).Text = dr("机柜编号")
        End If
        e.Form.DropDownBox.Value = dr("板盘类型" ) '这行不是多余的,省略此行,无法在表中正常使用此下拉窗口输入数据.
    End If
    e.Form.DropDownBox.CloseDropdown()  '关闭下拉目录树
   
End If