- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 为何出错？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=13095)
-- 发布时间：2011/9/27 16:38:00
-- 为何出错？
狐爸，
这里有个问题很奇怪啊，我把合同信息表里的合同公司列中的不同公司写入合同总览表中的合同公司列，本来合同信息表中的合同公司列中有两个不同公司，但在afterloadtablesetting 事件中加入代码后，在合同总览表里的合同公司列中只出现一个公司名，这是为什么？
-- 发布时间：2011/9/27 16:41:00
--
做一个简单的例子传上来
-- 发布时间：2011/9/27 16:42:00
--
列子在哪里上传啊
-- 发布时间：2011/9/27 16:53:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目9.table |
-- 发布时间：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
-- 发布时间：2011/9/27 17:19:00
--
现在可以了，你是去掉 了n=0,我是定义n=0反而不行了，这是为什么？你在帮助 里好像没 提到。
-- 发布时间：2011/9/27 17:25:00
--
这属于哪个知识点？帮助里有提到吗？
-- 发布时间：2011/9/27 17:35:00
--
这个和n = 0 没有关系。
有关系的是这个：
dr1 = DataTables("合同总览").datarows(n)
如果没有这个，dr1永远是第一行。
-- 发布时间：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
-- 发布时间：2011/9/27 17:53: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
呵呵，放的位置不同啊····