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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]自动赋值

共有2668人关注过本帖树形打印复制链接主题：[求助]自动赋值

江南小镇

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00

[求助]自动赋值 发帖心情

Post By：2018/6/29 21:57:00 [显示全部帖子]

老师好，

组合框（街道）获取外部数据后"省辖市、地级市、区县市"能从外部数据表中自动获取数据并赋值给对应的文本框中。

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

下载信息 [文件大小：下载次数： ]
点击浏览该文件:赋值.rar

江南小镇

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00

Post By：2018/6/29 22:59:00 [显示全部帖子]

老师，不能保存在文本框中。

江南小镇

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00

Post By：2018/6/30 9:36:00 [显示全部帖子]

老师，我不想直接赋值给明细表。

江南小镇

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00

Post By：2018/6/30 22:00:00 [显示全部帖子]

老师好，文本框的“区县市、街道”值能重新赋值给外部数据“行政区域”表，根据上一级文本框值”地级市”在”行政区”域表新增行并对应赋值。

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

江南小镇

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00

Post By：2018/7/2 20:31:00 [显示全部帖子]

老师，下面代码设置后只返回了一个列字段"省辖市"。

Select Case e.DataCol.name

Case "基本信息_省辖市"

Dim dr As DataRow = DataTables("行政区域").Find("省辖市 = '" & e.OldValue & "'")

If dr Is Nothing Then

dr = DataTables("行政区域").AddNew()

dr("省辖市") = e.DataRow("基本信息_省辖市")

dr("地级市") = e.DataRow("基本信息_地级市")

dr("区县市") = e.DataRow("基本信息_区县市")

Else

dr("省辖市") = e.DataRow("基本信息_省辖市")

End If

Case "地级市","区县市"

Dim dr As DataRow = DataTables("行政区域").Find("省辖市 = '" & e.DataRow("基本信息_省辖市") & "'")

If dr IsNot Nothing Then

dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)

End If

End Select

江南小镇

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00

Post By：2018/7/3 21:01:00 [显示全部帖子]

老师，行政区域表街道列是空值希望也能赋值。

If e.Node.Level = 3 Then '如果单击的是第二层节点
    Dim ps() As String = e.Node.FullPath.Split("\")
    Dim tr As Row = Tables("通讯录").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

图片点击可在新窗口打开查看此主题相关图片如下：图像 071.png