[求助]查找符合条件的行并赋值 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]查找符合条件的行并赋值

共有3403人关注过本帖树形打印复制链接主题：[求助]查找符合条件的行并赋值

建筑人生

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

加好友

发短信

等级：小狐帖子：342 积分：3469 威望：0 精华：0 注册：2014/8/20 20:14:00

[求助]查找符合条件的行并赋值 发帖心情

Post By：2014/10/31 11:42:00 [只看该作者]

    For Each r1 As Row In Tables("表").Rows '遍历表的各行
        If r1.IsNull("型号规格") =False Then

                Dim dr As DataRow = DataTables("水卫工程量").Find("型号规格 = " & "'" & r1("型号规格") & "'" )
                If dr IsNot Nothing'如果找到,则设置各列内容
                    r1("根数1")= dr("根数1")
                    r1("规格1")= dr("规格1")
                    r1("根数2")= dr("根数2")

                    r1("规格2")= dr("规格2")
                End If
        End If

    Next

自己搞定了，

[此贴子已经被作者于2014-10-31 11:55:48编辑过]

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/10/31 11:50:00 [只看该作者]

For Each r1 As Row In Tables("表").Rows '遍历表的各行
    If r1.IsNull("型号规格") =True Then   '先判断型号1是否为空
        Dim x As String=r1("型号规格")
        Dim r As DataRow= DataTables("水卫工程量").Find("型号规格 = '" & x & "'") '找出编号为03的产品
        If r IsNot Nothing Then
            r1("根数1") = r("根数1")
            r1("规格1") = r("规格1")
            r1("根数2") = r("根数2")
            r1("规格2") = r("规格2")
        End If
    End If
Next

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/10/31 11:51:00 [只看该作者]

代码没什么问题,报什么错?

下一主题 >> << 上一主题

主题：[求助]查找符合条件的行并赋值