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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 代码求助

共有11330人关注过本帖树形打印复制链接主题：代码求助

泡不烂

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

加好友

发短信

等级：幼狐帖子：127 积分：1019 威望：0 精华：0 注册：2011/9/19 8:38:00

代码求助

Post By：2011/10/27 15:57:00 [显示全部帖子]

有小区信息和楼栋信息两张表，两张表里都有小区名称这一列，小区信息这张表里“小区名称”就叫“小区名称”，“楼栋信息”这张表里“小区名称”叫所在小区，想实现自动输入，"选择小区_Table1"是来自另一张表的SQL查询表，我的代码如下，可不起作用，请高手帮忙看看错在哪里？感谢！

图片点击可在新窗口打开查看此主题相关图片如下：qq截图未命名.png

Dim tbl As Table = Tables("选择小区_Table1")
If tbl.Current IsNot Nothing Then
Dim nm As String
Select nm
    Case "小区信息"
        Tables(nm).Current("小区名称") = tbl.Current("小区名称")
    Case "楼栋信息"
        Tables(nm).Current("所在小区") = tbl.Current("小区名称")
End Select
End If
Forms("选择小区").Close()

泡不烂

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

加好友

发短信

等级：幼狐帖子：127 积分：1019 威望：0 精华：0 注册：2011/9/19 8:38:00

Post By：2011/10/27 16:10:00 [显示全部帖子]

以下是引用狐狸爸爸在2011-10-27 16:07:00的发言：

两个问题：

1、这段代码写在哪里？

2、nm的值是怎么取得的，你这段代码都没有给nm赋值啊。

写在“选择小区”这个窗口里的“选择小区_Table1”的DoubleClick事件中。

泡不烂

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

加好友

发短信

等级：幼狐帖子：127 积分：1019 威望：0 精华：0 注册：2011/9/19 8:38:00

Post By：2011/10/27 16:17:00 [显示全部帖子]

感谢BLACKZHU，currenttable.Name这个很重要，帮助是看了，但是记不住，所以只有来这里求助了，再次感谢！

泡不烂

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

加好友

发短信

等级：幼狐帖子：127 积分：1019 威望：0 精华：0 注册：2011/9/19 8:38:00

Post By：2011/10/27 16:23:00 [显示全部帖子]

以下是引用blackzhu在2011-10-27 16:14:00的发言：
Dim tbl As Table = Tables("选择小区_Table1")
If tbl.Current IsNot Nothing Then

Select currenttable.Name
    Case "小区信息"
        Tables("小区信息").Current("小区名称") = tbl.Current("小区名称")
    Case "楼栋信息"
        Tables("楼栋信息").Current("所在小区") = tbl.Current("小区名称")
End Select
End If
Forms("选择小区").Close()

怎么还是不行啊？