Foxtable(狐表)用户栏目专家坐堂 → 产品代号筛选


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

主题:产品代号筛选

帅哥哟,离线,有人找我吗?
宁老师SQE
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:108 积分:824 威望:0 精华:0 注册:2018/11/23 15:18:00
产品代号筛选  发帖心情 Post By:2018/12/3 14:35:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:360截图16640325443035.png
图片点击可在新窗口打开查看
图片点击可在新窗口打开查看此主题相关图片如下:360截图16640325443035.png
图片点击可在新窗口打开查看

能不能通过输入产品代号就能弹出来已经通过开发的全部供应商呢    因为我们是外贸公司 供应商实在是太多了 
只能通过产品代号和供应商跨表引用数据了

 回到顶部
帅哥哟,离线,有人找我吗?
宁老师SQE
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:108 积分:824 威望:0 精华:0 注册:2018/11/23 15:18:00
  发帖心情 Post By:2018/12/3 14:35:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:360截图163311255711677.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/12/3 14:54:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
宁老师SQE
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:108 积分:824 威望:0 精华:0 注册:2018/11/23 15:18:00
  发帖心情 Post By:2018/12/19 8:22:00 [只看该作者]

如果供应商唯一  我希望在输入产品代号时候直接把这个唯一供应商相关信息直接跨表引用数据了  怎么办呢


 回到顶部
帅哥哟,离线,有人找我吗?
宁老师SQE
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:108 积分:824 威望:0 精华:0 注册:2018/11/23 15:18:00
  发帖心情 Post By:2018/12/19 8:27:00 [只看该作者]

'如果刚刚输入的是省市或县市列
If
e.DataCol.Name = "省市" Orelse e.DataCol.Name = "县市" Then
    Dim
dr As DataRow
   
Dim Filter As
String
    Filter = "[省市] = '" & e.DataRow("省市") & "' And [县市] = '" & e.DataRow("县市") & "'"
    dr = DataTables("行政区域").Find(
Filter) '在行政区域表查找所输入省市和县市的行
    If
dr IsNot Nothing Then '如果找到
        '将找到行的区号和邮编内容填入到正在输入的行中

        e.DataRow("区号") = dr("区号")
        e.DataRow("邮编") = dr("邮编")
    Else
       
'否则清除区号和邮编两列的内容
        e.DataRow("区号") = Nothing
        e.DataRow("邮编") = Nothing
    End
If
End
If


就像这段代码  我想做唯一值判断怎么改写呢



 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/12/19 9:01:00 [只看该作者]

If e.DataCol.Name = "省市" Orelse e.DataCol.Name = "县市" Then
    Dim Filter As String
    Filter = "[省市] = '" & e.DataRow("省市") & "' And [县市] = '" & e.DataRow("县市") & "'"
    Dim drs = DataTables("行政区域").select(Filter) '在行政区域表查找所输入省市和县市的行
    If drs.count = 1 Then '如果找到
        '将找到行的区号和邮编内容填入到正在输入的行中
        e.DataRow("区号") = drs(0)("区号")
        e.DataRow("邮编") = drs(0)("邮编")
    Else
        '否则清除区号和邮编两列的内容
        e.DataRow("区号") = Nothing
        e.DataRow("邮编") = Nothing
    End If
End If

 回到顶部
帅哥哟,离线,有人找我吗?
宁老师SQE
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:108 积分:824 威望:0 精华:0 注册:2018/11/23 15:18:00
  发帖心情 Post By:2018/12/19 9:46:00 [只看该作者]

If e.DataCol.Name = "产品代号" OrElse e.DataCol.Name = "供应商" Then
    Dim Filter As String
    Filter = "[产品代号] = '" & e.DataRow("产品代号") & "' And [供应商] = '" & e.DataRow("供应商") & "' And [开发关闭] =  True  "
    Dim drs = DataTables("新产品开发阶段表").Select(Filter) '在行政区域表查找所输入省市和县市的行
    If drs.count > 1 Then '
        e.DataRow("供应商联系人") = drs("供应商联系人")
        e.DataRow("联系电话") = drs("供应商联系电话")
        e.DataRow("供应商_铸造价格") = drs("产品单价_铸造价格")
        e.DataRow("供应商_加工价格") = drs("产品单价_加工价格")
        e.DataRow("供应商管理SQE") = drs("供应商管理SQE")
Else If  e.DataCol.Name = "产品代号" OrElse e.DataCol.Name = "供应商" Then
        Dim Filtera As String
        Filtera = "[产品代号] = '" & e.DataRow("产品代号") & "' And [供应商] = '" & e.DataRow("供应商") & "' And [开发关闭] =  True  "
        Dim drn = DataTables("新产品开发阶段表").Select(Filtera)
        If drn.count = 1 Then '
        e.DataRow("供应商") = drn("供应商")
        e.DataRow("供应商联系人") = drn("供应商联系人")
        e.DataRow("联系电话") = drn("供应商联系电话")
        e.DataRow("供应商_铸造价格") = drn("产品单价_铸造价格")
        e.DataRow("供应商_加工价格") = drn("产品单价_加工价格")
        e.DataRow("供应商管理SQE") = drn("供应商管理SQE")
    Else
        e.DataRow("供应商") = Nothing
        e.DataRow("供应商联系人") = Nothing
        e.DataRow("联系电话") = Nothing
        e.DataRow("供应商_铸造价格") = Nothing
        e.DataRow("供应商_加工价格") = Nothing
        e.DataRow("供应商管理SQE") = Nothing
    End If
    End If
End If
  修改的有问题吗   怎么老是提醒异常呢


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/12/19 12:33:00 [只看该作者]


If e.DataCol.Name = "产品代号" OrElse e.DataCol.Name = "供应商" Then
    Dim Filter As String
    Filter = "[产品代号] = '" & e.DataRow("产品代号") & "' And [供应商] = '" & e.DataRow("供应商") & "' And [开发关闭] =  True  "
    Dim drs = DataTables("新产品开发阶段表").Select(Filter) '在行政区域表查找所输入省市和县市的行
    If drs.count = 1 Then '
        e.DataRow("供应商") = drs(0)("供应商")
        e.DataRow("供应商联系人") = drs(0)("供应商联系人")
        e.DataRow("联系电话") = drs(0)("供应商联系电话")
        e.DataRow("供应商_铸造价格") = drs(0)("产品单价_铸造价格")
        e.DataRow("供应商_加工价格") = drs(0)("产品单价_加工价格")
        e.DataRow("供应商管理SQE") = drs(0)("供应商管理SQE")
    Else
        e.DataRow("供应商") = Nothing
        e.DataRow("供应商联系人") = Nothing
        e.DataRow("联系电话") = Nothing
        e.DataRow("供应商_铸造价格") = Nothing
        e.DataRow("供应商_加工价格") = Nothing
        e.DataRow("供应商管理SQE") = Nothing
    End If
End If

 回到顶部
帅哥哟,离线,有人找我吗?
宁老师SQE
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:108 积分:824 威望:0 精华:0 注册:2018/11/23 15:18:00
  发帖心情 Post By:2018/12/19 13:21:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:360截图16530715101103150.png
图片点击可在新窗口打开查看
一个是  代码写进去后调试并没有出现我想要的情况
图片点击可在新窗口打开查看此主题相关图片如下:360截图16411203728366.png
图片点击可在新窗口打开查看


二个是   drs(0)("供应商")  这个(0)是什么意思

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/12/19 14:40:00 [只看该作者]

If e.DataCol.Name = "产品代号" OrElse e.DataCol.Name = "供应商" Then
    Dim Filter As String   
    If e.DataRow("供应商") = Nothing Then       
        Filter = "[产品代号] = '" & e.DataRow("产品代号") & "' And [开发关闭] =  True  "       
    Else
        Filter = "[产品代号] = '" & e.DataRow("产品代号") & "' And [供应商] = '" & e.DataRow("供应商") & "' And [开发关闭] =  True  "       
    End If
    Dim drs = DataTables("新产品开发阶段表").Select(Filter) '在行政区域表查找所输入省市和县市的行
    If drs.count = 1 Then '
        e.DataRow("供应商") = drs(0)("供应商")
        e.DataRow("供应商联系人") = drs(0)("供应商联系人")
        e.DataRow("联系电话") = drs(0)("供应商联系电话")
        e.DataRow("供应商_铸造价格") = drs(0)("产品单价_铸造价格")
        e.DataRow("供应商_加工价格") = drs(0)("产品单价_加工价格")
        e.DataRow("供应商管理SQE") = drs(0)("供应商管理SQE")
    Else
        e.DataRow("供应商") = Nothing
        e.DataRow("供应商联系人") = Nothing
        e.DataRow("联系电话") = Nothing
        e.DataRow("供应商_铸造价格") = Nothing
        e.DataRow("供应商_加工价格") = Nothing
        e.DataRow("供应商管理SQE") = Nothing
    End If
End If

 


 回到顶部