以下是引用蓝蚂蚁在2016/12/25 11:33:00的发言：
补充说明：第一个：品种销售登记表中名称（如名称1、名称2、。。。。。。）很多，不一定是2个名称，甚至达到名称80.在这里只是简化。第二个：名称1等录入的顺序是随意的。
如果真要这样做，就必须这样写代码
Dim str As String = "红富士"
Dim dt1 As DataTable = DataTables("品种销售登记表")
Dim t As Table = Tables("品种销售登记表")
Dim dt2 As DataTable = DataTables("查询结果表")
dt2.DataRows.Clear
For Each dr As DataRow In dt1.Select("店铺 is not null")
For i As Integer = 2 To t.Cols.Count - 1 Step 2
If dr(t.Cols(i).name) Like "*" & str & "*" Then
Dim ndr As DataRow = dt2.AddNew
ndr("日期") = dr("日期")
ndr("店名") = dr("店铺")
ndr("名称") = dr(t.Cols(i).name)
ndr("价格") = dr(t.Cols(i+1).name)
End If
Next
Next
加好友 
发短信
Post By：2016/12/25 11:29:00 [显示全部帖子]
