主题：请教:如何在两个表中取最大值?

我有二个表,一是员工档案表,一是调出人员表,当我在员工档案表中输入新员工时,要输入一工号,而此工号是不能重复使用的,就算是调出或死亡的人工号都还保留着,所以,在输入前原来的作法是看一下二个表中的工号的最大号,然后再给新员工一个工号,人少时还可以这么做,员工多时,加上一般我们的惯例是按部门排序,所以要看工号时还得重新排序后再输入
现在我的想法是,找出二个表中的最大值,然后我再输入工号,问题就是,二个表中如何取最大值?
或是直接在新增行的工号列输入最大值加一的值也行,工号列的格式是:0001,字符型

参考Compute方法

谢谢don老师
我的代码做好了,在新增行按钮中

Dim dr As Row
dr = Tables("员工档案").AddNew()
Dim t As Integer
Dim t1 As Integer
t = DataTables("员工档案").Compute("max(工号)")
t1 = DataTables("调出人员表").Compute("max(工号)")
If t >t1 Then
dr("工号") = Format(t+1,"0000")
Else
dr("工号") = Format(t1+1,"0000")

End If

这个代码是加好了,但是在完成操作后却出现下面的错误,请看下图,怎么回事?

此主题相关图片如下：117.jpg

好象‘工号’列要为整数型的才可以这样比较，不知道对不？

我想不是比较的问题,现在可以完成,也取出最大值,并在工号列也标出了最大值加1的号了,就是不知为何会有这样的提示

试一试这个：
针对字符型编号的（格式：0001，0002，0003.....0nnn（如果你的工号列只有数字没有其他字符的话，应该可以）
Dim dr As datarow
Dim dr1 As datarow
Dim drd As row
dr = DataTables("员工档案").find("工号 <> ''","工号 Desc")
dr1 = DataTables("调出人员表").find("工号 <>''","工号 Desc")
drd = Tables("员工档案").AddNew()

If dr("产品") > dr1("工号") Then
drd("产品") = format(dr("工号") +0001,"0000")
Else
drd("产品") = format(dr1("工号") +0001,"0000")
end if

谢谢 mr725 老师
怪事,我重新下载了5.12程序文件,再打开就没有问题了.

哈哈～  我可不是老师， 只是玩内部表的代码有半年的时间了，现在基本都能达到想要的结果，但出手的很多代码还是很繁琐，不能简化，甚至不少很是一知半解的，大多数都是在套用学过的（有时一天才能完成一段简单的代码），觉得自己挺笨的，基础差呀～

我认为:能者为师,我才学了一个月,你比我入学早,怎么才能算是半师吧,呵呵

这样看看：

Dim dr As Row
dr = Tables("员工档案").AddNew()
Dim t As Integer
Dim t1 As Integer
t = DataTables("员工档案").Compute("max(工号)")
t1 = DataTables("调出人员表").Compute("max(工号)")
t = Math.Max(t,t1)
dr("工号") = Format(t+1,"0000")