Dim name As String = "A"
Dim fdr As DataRow = Datatables("路径表").Find("名称='" & name & "'")
If fdr IsNot Nothing Then
Dim lj As String = fdr("路径")
End If