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

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

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

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

主题：产品代号筛选