主题：为何出错？

以下是引用cjd在2011-9-27 17:40:00的发言：

可是我和你的代码相差的就是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