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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 不能显示单价

共有9448人关注过本帖树形打印复制链接主题：不能显示单价

wilson

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

加好友

发短信

等级：一尾狐帖子：419 积分：3316 威望：0 精华：0 注册：2012/3/21 10:44:00

不能显示单价 发帖心情

Post By：2012/8/3 23:45:00 [只看该作者]

我用以下代码引用单价。如何实现只要在订单表输入产品编号就直接显示单价。谢谢
If e.DataCol.Name = "单价" Then
    Dim acmd As New SQLCommand
    Dim adt As DataTable
    Dim adr As DataRow = e.DataRow
    acmd.CommandText = "SELECT 成本价 From {产品表} Where [产品编号] = '" & adr("产品编号") & "'"
    adt = acmd.ExecuteReader
    If adt.DataRows.Count > 0 Then
        adr("单价") = adt.DataRows(0)("成本价")
    Else
        adr("单价") = Nothing
    End If
End If
《MainTableChanged》事件
If MainTable.Name = "订单" Then
    DataTables("订单").DataCols("单价").RaiseDataColChanged()
End if

muhua	小大 2楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：等待验证帖子：3855 积分：20692 威望：0 精华：5 注册：2012/6/21 14:03:00	Post By：2012/8/4 8:19:00 [只看该作者] 用户已被锁定

wilson

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

加好友

发短信

等级：一尾狐帖子：419 积分：3316 威望：0 精华：0 注册：2012/3/21 10:44:00

Post By：2012/8/4 8:57:00 [只看该作者]

谢谢

wilson

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

加好友

发短信

等级：一尾狐帖子：419 积分：3316 威望：0 精华：0 注册：2012/3/21 10:44:00

Post By：2012/8/4 9:22:00 [只看该作者]

改为：

If e.DataCol.Name = "产品编号" Then
Dim acmd As New SQLCommand
Dim adt As DataTable
Dim adr As DataRow = e.DataRow
acmd.CommandText = "SELECT 成本价 From {产品表} Where [产品编号] = '" & adr("产品编号") & "'Order By 日期 Desc"
adt = acmd.ExecuteReader
If adt.DataRows.Count > 0 Then
adr("单价") = adt.DataRows(0)("成本价")
Else
adr("单价") = Nothing
End If
End If

改为上述代码可以直接显示单价。

如果要是产品表的成本价改变了，订单表的单价自动更新为最新的单价。不知如何解决。

muhua	小大 5楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：等待验证帖子：3855 积分：20692 威望：0 精华：5 注册：2012/6/21 14:03:00	Post By：2012/8/4 9:32:00 [只看该作者] 用户已被锁定

wilson

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

加好友

发短信

等级：一尾狐帖子：419 积分：3316 威望：0 精华：0 注册：2012/3/21 10:44:00

Post By：2012/8/4 10:58:00 [只看该作者]

问题已解决

非常感谢您的帮助

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

主题：不能显示单价