主题：为何出错？

你觉得dr1的这个 表达式放在循环外和循环里有区别吗？我不觉得有区别啊

再说狐狸爸爸都没有赋予一个n的初始值，奇怪啊？

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 ... next中，n的值才会变化。

n=0

For each htgs in htgss

dr1(“合同公司”)=htgs

n=n+1

next

mr725兄，你的说法在帮助的哪里？我可能没看仔细。

这个不需要帮助吧，常识问题啊， 做多了就知道了。 上面代码是一行行开始执行的，到for...next是就循环开始直到结束。 Dr1= datatables(“合同总览”).datarows(n) 在循环体之外，只执行一次，只有放在循环体之内才反复循环，其中的 n 才能得到不同的值。（看里面有个n=n+1)

明明下面这句出现在循环体以内啊

 

dr1(“合同公司”)=htgs

 

这句就包含了dr1这个变量的，dr1这个变量定义是在循环体 以外，但是dr1(“合同公司”)在循环体以内，难道dr1(“合同公司”)不能执行循环吗？

如果这一行在循环体之外

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

就只会执行一次，执行的时候n等于0，也就是dr1永远是第一行。

如果再循环体之内，每次循环执行一次dr1= datatables(“合同总览”).datarows(n)，，第一次执行, n等于0，dr1等于第一行，第二次执行n等于1，dr1等于第二行