问题：每次在“采购明细”表中输入“型号”时，就在“采购明细”表中找与输入“型号”相近的记录，并弹出对话框告诉输入者所有包含与输入“型号”字符的记录发生的“供应商”、“采购日期”、“单价”。
原因：1、由于时间的变动，不同时期同“型号”的单价不一样。
2、由于供货来源的变动，同“型号”的产品可能来自不同的供应商。
我的问题
一、
'以下确保型号以及价格的唯一性、准确性
If e.DataCol.Name = "型号" Then '如果内容发生变动的是型号列
Dim dr As DataRow
With DataTables("采购明细")
dr = .Find("型号 LIKE '" & e.NewValue & " '","采购日期 Desc") '找出最后一次订购该产品的记录
'dr = .Find("型号 = '" & e.NewValue & " '","采购日期 Desc",1) '找出倒数第二次订购该产品的记录
If dr IsNot Nothing Then '如果找到的话
MessageBox.Show("最近一次订货在 " & dr("供应商") & "时间是: " & dr("采购日期") & "价格是: " & dr("单价"), "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
End With
End If
出现的问题：此方式只能找到一个。
比如：我输入SURT5000UXICH,系统中本来还有SURT5000UXICH-BJ,SURT5000UXICH-BJTJ,我希望所有含SURT5000UXICH字符的记录都找出来，我的方式是dr = .Find("型号 LIKE '" & e.NewValue & " '",
并以这种方式弹出对话框 MessageBox.Show("所有订货在 " & dr("供应商") & "时间是: " & dr("采购日期") & "价格是: " & dr("单价"), "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)。
二、
帮助中说要找出所有记录用SELECT.例子如下：
Dim drs As List(Of DataRow)
drs = DataTables("订单").Select("[产品] = 'PD01' And [日期]= #1/4/1999#")
但如何输出呢？
三、
还有没其它方式
想了很久，请指点
加好友 
发短信
Post By：2015/3/18 12:34:00 [显示全部帖子]
