| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]合并表 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=78115) |
| -- 作者：江南小城 -- 发布时间：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列和客户供应商列中.
|
| -- 作者：大红袍 -- 发布时间：2015/12/2 14:13: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
|
| -- 作者：大红袍 -- 发布时间：2015/12/2 16:09:00 -- 你3楼什么意思，详细说明 |
| -- 作者：江南小城 -- 发布时间：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 比如当天_涨幅列的数据是正数就用红色字体显示，负数用绿色字体显示，不是正行变色就当天_涨幅列的单元格变化。
|
| -- 作者：大红袍 -- 发布时间：2015/12/2 16:28:00 -- If e.Row("当天_涨幅") > 0 Then If e.Row("当天_涨幅") < 0 AndAlso e.Col.Name = "当天_涨幅" Then |
| -- 作者：江南小城 -- 发布时间：2015/12/3 8:35:00 -- 老师，通过鼠标选定列的行在对话框中显示合计数据。 |
| -- 作者：大红袍 -- 发布时间：2015/12/3 9:18:00 -- 参考
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=77615&skin=0
|
| -- 作者：江南小城 -- 发布时间：2015/12/3 10:42:00 -- 老师，窗口表筛选后通过按钮清空所有。 |
| -- 作者：大红袍 -- 发布时间：2015/12/3 10:47:00 -- 无法理解你什么意思。 |