Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]合并表


  共有4635人关注过本帖树形打印复制链接

主题：[求助]合并表
帅哥哟，离线，有人找我吗？
江南小城
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		[求助]合并表  发帖心情 Post By：2015/12/2 13:07:00 [只看该作者]

DataTables("统计询查表").DataRows.Clear
Dim tnames() As String = {"表A","表B","表C"}
For Each tname As String In tnames
    Dim drs As List(Of DataRow) = DataTables(tname).Select("", "_Identify")
    For i As Integer = 0 To drs.count - 1
        Dim dr As DataRow = drs(i)
        Dim nr As DataRow = DataTables("统计询查表").AddNew
        nr("ID") = dr("客户ID")
        nr("客户供应商") = dr("客户名称")
        nr("销售数量") = dr("销售数量")     
    Next
Next

'老师,在合并表时能不能让表A表B表C的ID列和名称列的字段内容同时复制在统计询查表的ID列和客户供应商列中.
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/12/2 14:13:00 [只看该作者]

代码没有问题啊。

 回到顶部
帅哥哟，离线，有人找我吗？
江南小城
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2015/12/2 15:49:00 [只看该作者]

老师，我只要让单元格的数据发生变化不是正行。
If e.Row("当天_涨幅") > 0 Then
            e.Style = "样式6"
       End If

        If e.Row("当天_涨幅") < 1 Then
           e.Style = "样式7"
       End If
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/12/2 16:09:00 [只看该作者]

你3楼什么意思，详细说明

 回到顶部
帅哥哟，离线，有人找我吗？
江南小城
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2015/12/2 16:25:00 [只看该作者]

以下是引用江南小城在2015/12/2 15:49:00的发言：
老师，我只要让单元格的数据发生变化不是正行。
If e.Row("当天_涨幅") > 0 Then
            e.Style = "样式6"
       End If

        If e.Row("当天_涨幅") < 1 Then
           e.Style = "样式7"
       End If



比如当天_涨幅列的数据是正数就用红色字体显示，负数用绿色字体显示，不是正行变色就当天_涨幅列的单元格变化。
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/12/2 16:28:00 [只看该作者]

If e.Row("当天_涨幅") > 0 Then
    e.Style = "样式6"
End If

If e.Row("当天_涨幅") < 0 AndAlso e.Col.Name = "当天_涨幅" Then
    e.Style = "样式7"
End If
 回到顶部
帅哥哟，离线，有人找我吗？
江南小城
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2015/12/3 8:35:00 [只看该作者]

老师，通过鼠标选定列的行在对话框中显示合计数据。

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/12/3 9:18:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
江南小城
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2015/12/3 10:42:00 [只看该作者]

老师，窗口表筛选后通过按钮清空所有。

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/12/3 10:47:00 [只看该作者]

无法理解你什么意思。

 回到顶部
总数 51 1 2 3 4 5 6 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询