做了一个目录树用于输入：

Select Case e.Node.Level
    Case 0,1,2,3  \'如果不是最后一层节点
        Return \'则返回
    Case Else
       
        Dim Vals() As String = e.Node.FullPath.Split("\\")
        Dim Filter As String = "[省份] = \'" & Vals(0) & "\' And [医院名称] = \'" & Vals(1) & "\'And [安装科室] = \'" & Vals(2) & "\' And [设备型号] = "\' & Vals(3) & "\' And [设备序列号] = "\' & Vals(4) & "\'"
        Dim dr As DataRow =  DataTables("设备安装表").Find(Filter)
        Dim r As Row =  Tables("维修维护表").Current
        r("省份") = dr("省份")
        r("医院名称") = dr("医院名称")
        r("安装科室") = dr("安装科室")
        r("设备型号") = dr("设备型号")
        r("设备序列号") = dr("设备序列号")
        e.Form.Close()
       
End Select

双击最后一个节点“设备序列号”时，提示“=”运算符后缺少操作数，检查好几遍不知道问题在哪？

   Dim Filter As String = "[省份] = \'" & Vals(0) & "\' And [医院名称] = \'" & Vals(1) & "\'And [安装科室] = \'" & Vals(2) & "\' And [设备型号] = \'" & Vals(3) & "\' And [设备序列号] = \'" & Vals(4) & "\'"

已解决，原来是这两处写错了。