共11 条记录, 每页显示 10 条, 页签: [1] [2]

标题：代码求助

1楼

泡不烂 发表于：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楼

狐狸爸爸 发表于：2011/10/27 16:07:00

两个问题：

1、这段代码写在哪里？

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

3楼

泡不烂 发表于：2011/10/27 16:10:00

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

两个问题：

1、这段代码写在哪里？

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

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

4楼

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()

5楼

泡不烂 发表于：2011/10/27 16:17:00

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

6楼

泡不烂 发表于：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

怎么还是不行啊？

7楼

狐狸爸爸 发表于：2011/10/27 16:32:00

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

[此贴子已经被作者于2011-10-27 16:32:21编辑过]

8楼

泡不烂 发表于：2011/10/27 17:13:00

附件如下：

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目3.table

9楼

blackzhu 发表于：2011/10/27 17:16:00

Dim tbl As Table = Tables("窗口1_Table1")

If tbl.Current IsNot Nothing Then

If MainTable.Name ="表C" Then

Tables("表C").Current("第一列") = tbl.Current("镁")

End If

If MainTable.Name ="表D" Then

Tables("表d").Current("第一列") = tbl.Current("镁")

End If

10楼

blackzhu 发表于：2011/10/27 17:16:00

不能用当前表,要用主表判断.

共11 条记录, 每页显示 10 条, 页签: [1] [2]