什么让这两个列不重复读取数据,商品条码输入内容电子条码就只取商品条码的内容,不要让电子条码重新去取店名
1
If e.DataCol.Name = "商品条码" Then
Dim dr As DataRow = e.DataRow
Dim sr As DataRow
sr = DataTables("商品条码明细").SQLFind("[商品条码] = '" & dr("商品条码") & "'") '在后台查找符合条件的行
If sr IsNot Nothing Then '如果找到了符合条件的行
dr("店名") = sr("店名")
dr("电子条码") = sr("电子条码")
Else
dr("店名") = Nothing
dr("电子条码") = Nothing
End If
End If
2
If e.DataCol.Name = "电子条码" Then
Dim dr As DataRow = e.DataRow
Dim sr As DataRow
sr = DataTables("商品条码明细").SQLFind("[电子条码”] = '" & dr("电子条码") & "'") '在后台查找符合条件的行
If sr IsNot Nothing Then '如果找到了符合条件的行
dr("店名") = sr("店名")
dr("商品条码") = sr("商品条码")
Else
dr("店名") = Nothing
dr("商品条码") = Nothing
End If
End If