以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何实现最新记录的选取并生成表  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=47859)

--  作者:308559832
--  发布时间:2014/3/18 17:21:00
--  [求助]如何实现最新记录的选取并生成表


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20140318171812.png
图片点击可在新窗口打开查看
表a表b是基础数据通过查询或者是其他的方法得到最终表 。要求就是相同编号下的最后一条记录。并且还要输出excel报表。

 

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

谢谢
--  作者:Bin
--  发布时间:2014/3/18 17:38:00
--  
.
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table


--  作者:308559832
--  发布时间:2014/3/18 22:57:00
--  
求教如何表a表b生成表c。只要同一编号的最新数据。 导出什么的都好说
--  作者:308559832
--  发布时间:2014/3/18 22:57:00
--  
求教如何表a表b生成表c。只要同一编号的最新数据。 导出什么的都好说

--  作者:y2287958
--  发布时间:2014/3/18 23:27:00
--  
在“要得到的表”中的DataColChanged设置以下代码试试:


Dim dr As DataRow = e.DataRow
If e.DataCol.Name = "第一列"
    Dim dr1 As DataRow = DataTables("表A").Find("第一列=\'" & dr("第一列") & "\'","第二列 Desc")
    Dim dr2 As DataRow = DataTables("表B").Find("第一列=\'" & dr("第一列") & "\'")
    If dr1 IsNot Nothing
        dr("最新进度") = dr1("第三列")
    End If
    If dr2 IsNot Nothing
        dr("第二列") = dr2("第二列")
    End If
End If

--  作者:Bin
--  发布时间:2014/3/19 8:34:00
--  
你没有认真看例子吧.不是生成了一个表C么.
--  作者:308559832
--  发布时间:2014/3/19 9:02:00
--  
看到了 谢谢
--  作者:308559832
--  发布时间:2014/3/19 17:09:00
--  
怎么能够在其他地方用 不光是datacolchangged 比如在一个按钮点击后执行??
--  作者:狐狸爸爸
--  发布时间:2014/3/19 17:13:00
--  

原来的不用改,做个按钮,按钮代码:

 

DataTables("要得到的表").Datacols("第一列").RaiseDataColChanged()


--  作者:Bin
--  发布时间:2014/3/19 17:13:00
--  
例子生成的查询表,什么都不用点.