主题：为何出错？

狐爸，

这里有个问题很奇怪啊，我把合同信息表里的合同公司列中的不同公司写入合同总览表中的合同公司列，本来合同信息表中的合同公司列中有两个不同公司，但在afterloadtablesetting 事件中加入代码后，在合同总览表里的合同公司列中只出现一个公司名，这是为什么？

现在可以了，你是去掉 了n=0,我是定义n=0反而不行了，这是为什么？你在帮助 里好像没 提到。

这个和n = 0 没有关系。

有关系的是这个：

dr1 = DataTables("合同总览").datarows(n)

如果没有这个，dr1永远是第一行。

可是我和你的代码相差的就是n=0  ,其他都一样

Dim htgs as string

Dim htgss as list (of string)

Htgss=datatables(“合同信息“).getuniquevalues(“”,”合同公司”)

Dim n as integer

Dim dr1 as datarow

Dr1= datatables(“合同总览”).datarows(n)

n=0

For each htgs in htgss

dr1(“合同公司”)=htgs

n=n+1

next

呵呵，放的位置不同啊····