Foxtable(狐表)用户栏目专家坐堂 → 两个list单独定义,为什么最后数值会叠加???


  共有2582人关注过本帖树形打印复制链接

主题:两个list单独定义,为什么最后数值会叠加???

帅哥哟,离线,有人找我吗?
l20j07
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:41 积分:437 威望:0 精华:0 注册:2017/2/6 0:34:00
两个list单独定义,为什么最后数值会叠加???  发帖心情 Post By:2017/5/4 22:16:00 [显示全部帖子]

myflp 中存好了FTP上的文件夹地址,然后想分别将长文件名(带地址)和文件名(不包括地址)分别存入myfl和mmyfl,但结果两个都是长文件名,还存了两遍,什么情况?Bug么? 

原始代码:

 

Dim fls,ffls,myflp,myfl,MMyfl As List(of String)

 

   myfl = fls

   myfl.Clear

   MMyfl = fls

   MMyfl.Clear

For i =0 To myflp.Count-1

    fls.Clear

    ffls.Clear

    fls = ftp1.GetFileList(myflp(i))

    ffls =fls

    If  fls.count < 1 Then

        Continue For

    End If

    For j=0 To fls.Count - 1

        ffls(j) =  dl & "\" & fls(j)

    Next

 

    myfl.AddRange(ffls)

    MMyfl.AddRange(fls)

 

Next

 

Tables("表A").AddNew(mmyfl.Count)

For i =0 To myfl.Count-1

Tables("表A").Rows(i)("第一列") = mmyfl(i)

Tables("表A").Rows(i)("文件地址") = myfl(i)

Next

MessageBox.Show( "共计文件:" & myfl.Count & "个,耗时: " & (Date.Now - st).TotalSeconds & "秒")


 回到顶部