不知道是不是一个小bug - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 不知道是不是一个小bug

共有8843人关注过本帖树形打印复制链接主题：不知道是不是一个小bug

lichenwudi

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：28 积分：292 威望：0 精华：0 注册：2012/6/27 22:01:00

不知道是不是一个小bug 发帖心情

Post By：2012/9/5 18:31:00 [只看该作者]

Dim Customers As List(Of String)

Customers = DataTables("坯布进仓").GetUniqueValues("", "产品")

For Each Customer As String In Customers

Dim r As Row = Tables("表A").Addnew

r("第六列") = Customer

填充的时候会一直往上加即使先清空某一列数据也没有用

如我筛选出来的数据有 40个我清除后再次筛选会填充到 41到80

1-40是空的
尝试填充列改到其他列也是比如A1-40 填充完了改到B列会从 B41填充到B80

[此贴子已经被作者于2012-9-5 18:32:37编辑过]

狐狸爸爸

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2012/9/5 19:54:00 [只看该作者]

这不是bug来的，如果你想从第一行开始填充：

Dim Customers As List(Of String)
Customers = DataTables("坯布进仓").GetUniqueValues("", "产品")
If Tables("表A").Rows.count < Customers.count Then
    Tables("表A").Addnew(Tables("表A").Rows.count - Customers.count)
End If
For i As Integer = 0 To Customers.Count - 1
    Dim r As Row = Tables("表A").Rows(i)
   r("第六列") = Customers(i)
Next