以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]显示  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=52826)

--  作者:风声
--  发布时间:2014/6/23 22:37:00
--  [求助]显示


图片点击可在新窗口打开查看此主题相关图片如下:商品名称消失.png
图片点击可在新窗口打开查看

 

If e.DataCol.Name = "商品编号" Then
    If e.NewValue Is Nothing Then
        e.DataRow("项目分类") = Nothing
        e.DataRow("分类码") = Nothing
        e.DataRow("商品类别") = Nothing
        e.DataRow("类别码") = Nothing
        e.DataRow("商品名称") = Nothing
        e.DataRow("商品代码") = Nothing
        e.DataRow("规格码") = Nothing
        e.DataRow("型号") = Nothing
        e.DataRow("规格") = Nothing
        e.DataRow("单价") = Nothing
    Else
        Dim dr As DataRow
        dr = e.DataRow.GetParentRow("商品信息")
        If dr IsNot Nothing
            e.DataRow("项目分类") = dr("项目分类")
            e.DataRow("分类码") = dr("分类码")
            e.DataRow("商品类别") = dr("商品类别")
            e.DataRow("类别码") = dr("类别码")
            e.DataRow("商品名称") = dr("商品名称")
            e.DataRow("商品代码") = dr("商品代码")
            e.DataRow("规格码") = dr("规格码")
            e.DataRow("型号") = dr("型号")
            e.DataRow("规格") = dr("规格")
            e.DataRow("单价") = dr("入库单价")
        End If
    End If
End If 

不知什么原因商品名称重启软件为消失


--  作者:有点甜
--  发布时间:2014/6/23 22:40:00
--  
  这个不应该,把例子发上来。
--  作者:风声
--  发布时间:2014/6/23 22:51:00
--  


--  作者:风声
--  发布时间:2014/6/23 23:06:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:蓝峰管理.table


--  作者:有点甜
--  发布时间:2014/6/23 23:50:00
--  

 看了一下,你的商品名称是表达式列,你要改成数据列。

 

 http://www.foxtable.com/help/topics/2494.htm