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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何自动获取关联表中的值

共有10907人关注过本帖树形打印复制链接主题：如何自动获取关联表中的值

hemq3502

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

加好友

发短信

等级：婴狐帖子：7 积分：144 威望：0 精华：0 注册：2011/12/27 10:10:00

如何自动获取关联表中的值 发帖心情

Post By：2011/12/27 10:21:00 [只看该作者]

您好：我有两个表格，表1和表2，表2是字典表，利用资产号进行关联。我想实现在表1中输入资产号后，能够自动从表2中获取字其它字段值，填充到表1中。（字段名，类型都相同）已达到降低输入强度的目的

请您指教。谢谢

blackzhu

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

加好友

发短信

等级：狐仙帖子：9879 积分：57634 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2011/12/27 13:06:00 [只看该作者]

If e.DataCol.Name = "省市" Orelse e.DataCol.Name = "县市" Then
    Dim dr As DataRow
    Dim Filter As String
    Filter = "[省市] = '" & e.DataRow("省市") & "' And [县市] = '" & e.DataRow("县市") & "'"
    dr = DataTables("行政区域").Find(Filter ) '在行政区域表查找所输入省市和县市的行
    If dr IsNot Nothing Then '如果找到
        '将找到行的区号、邮编内容填入到正在输入的行中.
        e.DataRow("区号") = dr("区号")
        e.DataRow("邮编") = dr("邮编")
    Else
        '否则清除区号和邮编两列的内容
        e.DataRow("区号") = Nothing
        e.DataRow("邮编") = Nothing
    End If
End If