以下是引用狐狸爸爸在2009-11-18 9:04:00的发言:
Dim Filter As String
Dim Product As String
Dim Discount As Double
With e.Form.Controls("TextBox1")
Product = .value
If Product > "" Then
Filter = "[姓名] Like " & "'*" & product & "*'" & " Or [身份证号码] Like " & "'*" & product & "*'" & " Or [户主] Like " & "'*" & product & "*'"
End If
For Each dr1 as DataRow In DataTables("适龄青年数据库").Select(Filter)
Dim dr2 As DataRow = DataTables("报名数据").AddNew
For Each c As DataCol In DataTables("适龄青年数据库").DataCols
dr2(c.Name) = dr1(c.Name)
Next
Next
End With
这个代码如果姓名列有相同名字,所有相同的都复制过去了。能不能只复制光标所在行呢?也就是找到的行,哪怕有相同的也只复制此行。