可以了ElseIf Vals(0) = DataTables("分类").DataRows(1)("分类") Then
Dim dr1 As DataRow = DataTables("车辆基本信息").Find("分类 = '" & Vals(0) & "' And 车牌号码 ='" & Vals(1) & "'")
If dr1 IsNot Nothing Then
If e.Node.Level = 0 Then '如果是顶层节点
Return '则返回
End If
tr("分类") = dr1("分类")
tr("车牌号码") = dr1("车牌号码")
e.Form.DropDownBox.Value = tr("车牌号码")
e.Form.DropDownBox.CloseDropdown()
End If
End If