Foxtable(狐表)用户栏目专家坐堂 → 如何将产品材料清单转化为材料描述


  共有4427人关注过本帖树形打印复制链接

主题:如何将产品材料清单转化为材料描述

帅哥哟,离线,有人找我吗?
ybil
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:521 积分:4910 威望:0 精华:7 注册:2008/9/2 22:22:00
  发帖心情 Post By:2015/4/18 19:28:00 [只看该作者]

If e.DataCol. Name ="confirm" Then
    If  e.NewValue =  0  Then
        e.DataRow( "Material") = Nothing
    Else
        Dim s1 ,flt As String
        flt = "Product='" & e.DataRow( "product") & "'"   
        s1= DataTables("Material").GetComboListString("Material",flt)
        If   s1 > "" Then  s1=s1.Replace("|","+")
        e.DataRow( "Material") = s1
    End If
End If

 回到顶部
帅哥哟,离线,有人找我吗?
tj-pacer
  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:347 积分:2844 威望:0 精华:0 注册:2013/4/26 20:58:00
  发帖心情 Post By:2015/4/19 7:59:00 [只看该作者]

感谢ybil版主
以下是引用ybil在2015/4/18 19:28:00的发言:
If e.DataCol. Name ="confirm" Then
    If  e.NewValue =  0  Then
        e.DataRow( "Material") = Nothing
    Else
        Dim s1 ,flt As String
        flt = "Product='" & e.DataRow( "product") & "'"   
        s1= DataTables("Material").GetComboListString("Material",flt)
        If   s1 > "" Then  s1=s1.Replace("|","+")
        e.DataRow( "Material") = s1
    End If
End If


 回到顶部
总数 12 上一页 1 2