Foxtable(狐表)用户栏目专家坐堂 → 如何在实现Label中的显示,谢谢!


  共有3082人关注过本帖平板打印复制链接

主题:如何在实现Label中的显示,谢谢!

帅哥哟,离线,有人找我吗?
zstk7333
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:328 积分:2960 威望:0 精华:0 注册:2011/5/3 20:21:00
如何在实现Label中的显示,谢谢!  发帖心情 Post By:2014/7/12 22:46:00 [只看该作者]

我想实现在窗口中的Label中可以分行显示结果,如何实现?谢谢。窗口中的按钮有我的代码,可以在命令窗口中看到我想输出的结果。

'''
Dim ts As List(of String)
ts = DataTables("表A").GetValues("第一列")
Dim t2s As List(of String)
t2s = DataTables("表B").GetValues("第二列")
For Each t As String In ts
    For a As Integer = 0 To t2s.Count-1
        If t = t2s(a) Then
            Dim dr As DataRow
            dr = DataTables("表B").Find("第二列 = '" & t2s(a) & "'")
            Dim r As Integer
            r = Tables("表B").FindRow(dr)
            If r>=0 Then
                Tables("表B").Position = r
            End If
            Output.Show("Find  " & t & "-" &Tables("表B").Rows(r)("第一列"))
        End If
    Next
Next

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目4.rar


 回到顶部