前提条件：

表a 的数据是由 表b 和 表c 的数据填充进来的。

所以表a 中 的商品名 有两种形式，

从表 b 填充进来的 数据 以  bb 开头

从表 c 填充进来的 数据 以  cc 开头

要实现的功能：

如果商品名 以bb 开头， 则在表b中 查询 该商品的 价格

如果商品名 以cc 开头，  则在表c中 查询 该商品的 价格

可以实现么？应该在什么事件里写代码？ 最主要的是不会写代码？还望各位前辈指教。

参考 find 方法，结合 like

if e.datarow("商品名") like "aa*"

    表A查找

else

    表B查找

end if

 

剩下的您自己来做

好的。谢谢！

If e.DataRow("取货商品名") Like "DD-" Then
  Dim dr As DataRow
    dr = DataTables("订单处理").Find("取货商品名 = " & "\'" & e.DataRow("取货商品名") & "\'" )
    If dr IsNot Nothing \'如果找到, 则设置各列内容
        e.DataRow("应取数量")= dr("productNum")
 Else

  e.DataRow("应取数量")= 系统录入值(这个地方该怎么写)      
  End If
End If

Dim dr As DataRow

If e.DataRow("取货商品名") Like "DD-" Then
      dr = DataTables("订单处理").Find("取货商品名 = \'" & e.DataRow("取货商品名") & "\'" )

elseif e.DataRow("取货商品名") Like "AA-" Then \'假如如您所说，还包含DD-以外的内容
      dr = DataTables("另一个表").Find("取货商品名 = \'" & e.DataRow("取货商品名") & "\'" )

end if

If dr IsNot Nothing \'如果找到, 则设置各列内容
      e.DataRow("应取数量")= dr("productNum")
Else

      e.DataRow("应取数量")= 系统录入值(这个地方该怎么写) \'不明白您这句话的意思
End If