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

我在TreeView1的NodeMouseClick写有以下命令，当我的控件数值从1~9的时候都没有问题，但是当控件的数值为10的时候就出现错误提示，这是为什么？

If Forms("设备端口成端窗口(2M)").Opened() Then

    

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

    Forms("设备端口成端窗口(2M)").Controls("板盘类型" & i).Value = Nothing

    Forms("设备端口成端窗口(2M)").Controls("板盘端子名称" & i).Value = Nothing

    Forms("设备端口成端窗口(2M)").Controls("机柜编号" & i).Value = Nothing

    

    If e.Node.Level = 2 Then '如果单击的是第二层节点

        Dim ps() As String = e.Node.FullPath.Split("\")

        Dim dr As DataRow = DataTables("机房板盘端子台帐表").Find("板盘类型 = '" & ps(0) & "'And 机柜编号 = '" & ps(1) & "' And 板盘端子名称 = '" & ps(2) & "'")

        If dr IsNot Nothing Then '如果在行政区域表找到对应的行,则将此行的值写入客户表的当前行.            

            Forms("设备端口成端窗口(2M)").Controls("板盘类型" & i).Text = dr("板盘类型")

            Forms("设备端口成端窗口(2M)").Controls("板盘端子名称" & i ).Text = dr("板盘端子名称")

            Forms("设备端口成端窗口(2M)").Controls("机柜编号" & i).Text = dr("机柜编号")            

            e.Form.DropDownBox.Value = dr("板盘类型" ) '这行不是多余的,省略此行,无法在表中正常使用此下拉窗口输入数据.

        End If

        e.Form.DropDownBox.CloseDropdown()  '关闭下拉目录树       

    End If    

End If

此主题相关图片如下：360截图20141103215213250.jpg
<br/>

此主题相关图片如下：360截图20141103215346875.jpg
<br/>

此主题相关图片如下：360截图20141103215403953.jpg
<br/>

我在表DataColChanged中写有以下命令；想实现功能为：1、当该表中存在“操作记录_修改日期”列时，在该列中填入 服务器的当前‘日期和时间’；2、如果某行内容发生修改时，在“操作记录_修改日期”单元格中将‘日期和时间’修改为 服务器的当前 ‘日期和数时间’；以下公式该如何修改？

If e.DataTable.DataCols.Contains("操作记录_修改日期")  Then '如果当前表中存在"*****"列

    

    Dim cmd As New SQLCommand

    Dim dt As Date

    cmd.C

    cmd.CommandText = "Select GetDate()"

    dt = cmd.ExecuteScalar()

    dt = dt.Date

    

    'e.DataRow("操作记录_增加日期") = dt

    

    

    If dt <> e.DataRow("操作记录_修改日期") Then '如果"*****"日期列的日期不等于当前电脑日期

        

        e.DataRow("操作记录_修改日期") = dt '在"*****"列纪录下当前电脑日期

        

        

    End If  '结束

此主题相关图片如下：360截图20141103225711671.jpg

1、在录入 第一个“板盘类型”时，第二个一起录入，这是什么原因？

2、点击“新增电路”时，没有办法录入‘机柜编号2’和‘板盘端子名称2’的内容