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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 批量修改数据

共有16745人关注过本帖树形打印复制链接主题：批量修改数据

hhbb

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

加好友

发短信

等级：等待验证帖子：386 积分：2482 威望：0 精华：1 注册：2011/5/10 11:13:00

Post By：2011/6/28 19:04:00 [只看该作者]

以下是引用andy在2011-6-28 17:12:00的发言：

下载信息 [文件大小：10.4 KB 下载次数：2]
点击浏览该文件:如何替换价格.rar

这是我做的一个简单的例子，数据是我瞎编的，希望帮忙解决下问题。谢谢

試試:

Dim cd1,cd2 As New SQLCommand

Dim dt As DataTable

cd1.Connection Name = "DD"

cd1.CommandText = "SELECT * From {产品资料}"

dt = cd1.ExecuteReader()

For Each cb As String() In dt.GetUniqueValues("","品名","采购价","销售价")

for each dr as Datarow In DataTables("产品资料").select("品名 = '" & cb(0) & "'")

dr("采购价") = cb(1)

dr("销售价") = cb(2)

blackzhu

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

加好友

发短信

等级：狐仙帖子：9875 积分：57584 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2011/6/28 19:05:00 [只看该作者]

我现在用外部数据导入,用遍历行处理的,我再试试你哪个.

blackzhu

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

加好友

发短信

等级：狐仙帖子：9875 积分：57584 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2011/6/28 19:23:00 [只看该作者]

太牛了,像你学习.拜你为师

e-png

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

加好友

发短信

等级：七尾狐帖子：1695 积分：10725 威望：0 精华：0 注册：2009/10/25 16:45:00

Post By：2011/6/28 23:02:00 [只看该作者]

31楼，如果外部表的品名多于内部表时，会有问题的。应这样保险些：

Dim cd1,cd2 As New SQLCommand
Dim dt As DataTable
cd1.C
cd1.CommandText = "SELECT * From {涨价后的价格表}"
dt = cd1.ExecuteReader()
For i As Integer = 0 To Tables("产品资料").count -1
    Dim r As Row = Tables("产品资料").Rows(i)
    Dim dr As DataRow
    dr =dt.Find("品名 = '" & r("品名") & "'")
    If dr IsNot Nothing
        r("采购价") = dr("采购价")
        r("销售价") = dr("销售价")
    End If
Next