[求助]循环显示 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]循环显示

共有4185人关注过本帖树形打印复制链接主题：[求助]循环显示

hwj3551670

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：266 积分：1700 威望：0 精华：0 注册：2013/5/5 17:46:00

[求助]循环显示 发帖心情

Post By：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