- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]循环显示 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=38238)
-- 发布时间：2013/7/23 16:49:00
-- [求助]循环显示
Dim ss As String
For Each dr As DataRow In DataTables("订单明细").DataRows
Dim Customers As List(Of String)
Customers = DataTables("订单明细").GetUniqueValues("[进度] = False ","产品名称")
If dr("进度") = False Then
For i As Integer = 0 To Customers.Count - 1
ss = "*文件名[" & Customers(i) & "]未下单,请及时下单!" & Chr(10) & ss
Next
End If
Next
Forms("事件提醒").Controls("Label1").text = ss
这个是代码
但运行结果如下：
此主题相关图片如下：qq截图20130723164824.png
每个名字都有重复
-- 发布时间：2013/7/23 16:51:00
--
如果条件只有一个符合的，哪只显示一个 是正常的，但有二个三个。。。。符合的话就会这样显示了
-- 发布时间：2013/7/23 16:54:00
--
你的需求是什么?
-- 发布时间：2013/7/23 17:00:00
--
想要的就是三个条件符合就只显示三个条件
此主题相关图片如下：qq图片20130723165945.jpg
其它重复的不要
-- 发布时间：2013/7/23 17:02:00
--
请多上实例，少贴代码，更不能代码都舍不得贴上。
有了实例，容易理解，便于测试。
不然回答问题的人，又得从头做一个项目，又要填写测试数据。
-- 发布时间：2013/7/23 17:02:00
--
意思是显示符合条件的唯一值是吧? 上个例子吧.
-- 发布时间：2013/7/23 17:06:00
--
等一下 我重新做一下
-- 发布时间：2013/7/23 17:09:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目2.table |
-- 发布时间：2013/7/23 17:13:00
--
.
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目2.table |
-- 发布时间：2013/7/23 17:18:00
--
Dim ss As String
For Each dr As DataRow In DataTables("表A").Select("[第二列] = False")
ss += "*文件名[" & dr("第一列") & "]未下单,请及时下单!" & vbcrlf
Next
MessageBox.show(ss)
Forms("窗口1").Controls("Label1").text = ss