【求助】跨表引用问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 【求助】跨表引用问题

共有3159人关注过本帖树形打印复制链接主题：【求助】跨表引用问题

有点甜

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

加好友

发短信

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

Post By：2017/9/7 20:01:00 [显示全部帖子]

查找的时候根据两列查找

If e.DataCol.Name = "AllQuantity"

Dim Filter As String = "[PrdName] = '" & e.DataRow("PrdName") & "' and OrderCode = '" & e.DataRow("OrderCode") & "'"

Dim drs As List(Of DataRow) = DataTables("CutorderTable").Select(Filter)

For Each dr As DataRow In drs

dr("AllQuantity") = e.DataRow("AllQuantity")

End If

有点甜

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

加好友

发短信

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

Post By：2017/9/8 11:13:00 [显示全部帖子]

If e.DataCol.Name = "prdname" OrElse e.DataCol.name = "OrderCode " Then
    Dim Filter As String = "[PrdName] = '" & e.DataRow("PrdName") & "' and OrderCode = '" & e.DataRow("OrderCode") & "'"
    Dim dr = DataTables("OrderInfo").Find(filter)

    If dr IsNot Nothing Then '如果找到了同名的产品行,也就是dr不是Nothing
        e.DataRow("AllQuantity") = dr("AllQuantity")
        e.DataRow("OperatorID") = dr("OperatorID")
        e.DataRow("DealerName") = dr("DealerName")
        e.DataRow("DealerCode") = dr("DealerCode")
        e.DataRow("OrderCode") = dr("OrderCode")
        e.DataRow("PrdCode") = dr("PrdCode")
        e.DataRow("DistributiveStatus") = dr("DistributiveStatus")
        e.DataRow("Standard") = dr("Standard")
        e.DataRow("DepotArea") = dr("DepotArea")
    End If
End If

有点甜

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

加好友

发短信

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

Post By：2017/9/8 13:00:00 [显示全部帖子]

你代码有什么问题？上传实例具体说明。

有点甜

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

加好友

发短信

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

Post By：2017/9/8 14:32:00 [显示全部帖子]

Select Case e.DataCol.Name
    Case "PrdName","AllQuantity","DistributiveQuantity","OrderCode"
        Dim filter As String = "[PrdName] = '" & e.DataRow("PrdName") & "' And [OrderCode] = '" & e.DataRow("OrderCode") & "'"
        Dim Val1 As Double = e.DataTable.Compute("Sum(DistributiveQuantity)",Filter)
        Dim Val2 As Double = e.DataTable.Compute("Sum(AllQuantity)",Filter)
        e.DataTable.replacefor("Surplus", val2 - Val1, filter)
End Select

有点甜

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

加好友

发短信

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

Post By：2017/9/8 15:50:00 [显示全部帖子]

Dim dr As DataRow
dr = DataTables("OrderInfo").Find("[PrdName] = '" & e.Form.Controls("PrdName").text & "'And [OrderCode] = '" & e.Form.Controls("OrderCode").text & "'")
If dr IsNot Nothing Then
e.Form.Controls("TextBox1").Text = dr("Surplus")
End If

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

主题：【求助】跨表引用问题