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

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

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

有点甜

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

wjy0611

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

加好友

发短信

等级：婴狐帖子：57 积分：457 威望：0 精华：0 注册：2017/6/21 22:24:00

Post By：2017/9/8 15:02:00 [只看该作者]

实在感谢！

我有个新的问题请教。

想把textBox1的值弄成动态值，当在组合框OrderCode选择完数值后，textBox1的值会变成符合对应OrderCode和PrdName值的那一行的Surplus 。

Dim cmb As WinForm.ComboBox = e.Sender

Dim str As String = e.Form.Controls("OrderCode").Value

cmb.ComboList = DataTables("OrderInfo").GetComboListString("PrdName", "OrderCode = '" & str & "'")

Dim dr As DataRow

Dim _Distri As String = e.Form.Controls("TextBox1").Value

dr = DataTables("OrderInfo").Find("[PrdName] = '" & e.Form.Controls("PrdName") & "'And [OrderCode] = '" & e.Form.Controls("OrderCode") & "'")

If dr IsNot Nothing Then

dr("Surplus") = _Distri

End If

[此贴子已经被作者于2017/9/8 15:02:50编辑过]

有点甜

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

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

总数 13 上一页 1 2

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