共17 条记录, 每页显示 10 条, 页签: [1] [2]

标题：为何出错？

1楼

cjd 发表于：2011/9/27 16:38:00

狐爸，

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

2楼

狐狸爸爸 发表于：2011/9/27 16:41:00

做一个简单的例子传上来

3楼

cjd 发表于：2011/9/27 16:42:00

列子在哪里上传啊

4楼

cjd 发表于：2011/9/27 16:53:00

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目9.table

5楼

狐狸爸爸 发表于：2011/9/27 17:07:00

Dim htgs As String
Dim htgss As List (of String)
Htgss=DataTables("合同信息").getuniquevalues("","合同公司")
Dim n As Integer
Dim dr1 As DataRow
For Each htgs In htgss
    dr1 = DataTables("合同总览").datarows(n)
    dr1("合同公司")=htgs
    n = n + 1
Next

6楼

cjd 发表于：2011/9/27 17:19:00

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

7楼

cjd 发表于：2011/9/27 17:25:00

这属于哪个知识点？帮助里有提到吗？

8楼

狐狸爸爸 发表于：2011/9/27 17:35:00

这个和n = 0 没有关系。

有关系的是这个：

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

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

9楼

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

10楼

mr725 发表于：2011/9/27 17:53:00

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