Case "产品型号", "标准色号"
Dim dr As DataRow
dr = DataTables("产品对应表格").Find("[产品型号] = '" & e.DataRow("产品型号") & "' And [配套色号] = '" & e.DataRow("标准色号") & "'") '匹配预设
If dr Is Nothing Then
dr = DataTables("产品对应表格").Find("[产品型号] ='WrongShowing' and [配套色号] ='WrongShowing'")
End If '无匹配预设,则调用默认错误设置
If dr 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
Else '赋值匹配的预设/默认错误设置
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
加好友 
发短信
Post By：2019/7/8 12:13:00 [显示全部帖子]
