主题：请教专家关于查询的问题

哪位专家能告诉小弟我怎么做这个查询啊？

例如：

表1

       第一列 第二列

1        a        5

2        a        7

3        b        6

4        a        8

5        b        7

6        a        4

7        a        9

8        b        8

9        a        8

---------------------------（问题：在表2的第一列1行里面输入a或者b，第二列的第一行会自动显示表一相应a或者b的最大值）

表2

       第一列 第二列

1

2

我表达的应该可以看得懂吧！？谢谢专家指教啊！昨天刚开始学习这个软件，但是老板要我一周内做出一个比较完善的数据库。晕死～再次感谢！

以下是引用nightsky1206在2011-5-31 22:20:00的发言：

哪位专家能告诉小弟我怎么做这个查询啊？

例如：

表1

       第一列 第二列

1        a        5

2        a        7

3        b        6

4        a        8

5        b        7

6        a        4

7        a        9

8        b        8

9        a        8

---------------------------（问题：在表2的第一列1行里面输入a或者b，第二列的第一行会自动显示表一相应a或者b的最大值）

表2

       第一列 第二列

1

2

我表达的应该可以看得懂吧！？谢谢专家指教啊！昨天刚开始学习这个软件，但是老板要我一周内做出一个比较完善的数据库。晕死～再次感谢！

一周内做出一个比较完善的数据库：你做不到的（估计专家们都没有几个能完成），可以选择投降啦···· 呵呵。

Tables("表2").Current("第二列") = Tables("表1").Compute("Max(第二列)", "第一列 = '" & Tables("表2").Current("第一列")  & "' ")

太感谢了，这一周还会有很多不懂的地方需要问大家！请多多指教啊！

 

你好，还是这个问题，我每次只是按一次“执行”它才执行一次命令，可不可以我输入之后A或者B之后，系统直接就可以帮我算出来最大值呢？谢谢！！

放在表2表属性DataColChanged中

If e.DataCol.Name = "第二列" Then '如果第二列输入内容
    Tables("表2").Current("第二列") = Tables("表1").Compute("Max(第二列)", "第一列 = '" & Tables("表2").Current("第一列")  & "' ")   '执行计算代码