有小区信息和楼栋信息两张表，两张表里都有小区名称这一列，小区信息这张表里“小区名称”就叫“小区名称”，“楼栋信息”这张表里“小区名称”叫所在小区，想实现自动输入，"选择小区_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()

两个问题：

1、这段代码写在哪里？

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

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

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

怎么还是不行啊？

你应该将文件传上来说话，具体说明问题，否则别人都是瞎蒙，无法保证正确。

附件如下：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目3.table