[求助]赋值 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师，目录树怎样给窗口表赋值，我下面的代码不行。

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

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

Dim tr As Row = Tables("外部通讯表_Table1").Current

Dim dr As DataRow = DataTables("行政区域").Find("省辖市 = '" & ps(0) & "' And 地级市 = '" & ps(1) & "' And 区县市 = '" & ps(2) & "'And 街道 = '" & ps(3) & "'")

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

tr("基本信息_省辖市") = dr("省辖市")

tr("基本信息_地级市") = dr("地级市")

tr("基本信息_区县市") = dr("区县市")

tr("基本信息_街道") = dr("街道")

tr("个人电子信息_区号") = dr("区号")

tr("个人电子信息_邮编") = dr("邮编")

e.Form.DropDownBox.Value = tr("基本信息_街道") '这行不是多余的,省略此行,无法在表中正常使用此下拉窗口输入数据.

End If

e.Form.DropDownBox.CloseDropdown()

End If

1、msgbox(dr is Nothing)

2、你表名是不是写错了？

Dim tr As Row = e.Form.DropTable.Current

以下是引用苏州老街在2017/3/16 20:19:00的发言：

老师，目录树怎样给窗口表赋值，我下面的代码不行。

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

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

Dim tr As Row = Tables("外部通讯表_Table1").Current

Dim dr As DataRow = DataTables("行政区域").Find("省辖市 = '" & ps(0) & "' And 地级市 = '" & ps(1) & "' And 区县市 = '" & ps(2) & "'And 街道 = '" & ps(3) & "'")

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

tr("基本信息_省辖市") = dr("省辖市")

tr("基本信息_地级市") = dr("地级市")

tr("基本信息_区县市") = dr("区县市")

tr("基本信息_街道") = dr("街道")

tr("个人电子信息_区号") = dr("区号")

tr("个人电子信息_邮编") = dr("邮编")

e.Form.DropDownBox.Value = tr("基本信息_街道") '这行不是多余的,省略此行,无法在表中正常使用此下拉窗口输入数据.

End If

e.Form.DropDownBox.CloseDropdown()

End If

老师，上面标出的一行能找到。

此主题相关图片如下：图像 2.png

主题：[求助]赋值