- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]赋值 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=97686)
-- 发布时间：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
-- 发布时间：2017/3/16 20:44:00
--
1、msgbox(dr is Nothing)
2、你表名是不是写错了？
Dim tr As Row = e.Form.DropTable.Current
-- 发布时间：2017/3/16 21:43:00
--
以下是引用苏州老街在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
老师，上面标出的一行能找到。
-- 发布时间：2017/3/16 21:55:00
--
此主题相关图片如下：图像 2.png
-- 发布时间：2017/3/16 22:54:00
--
老师，好了。