以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  当基础表“标志”列内数据相同时,合并到合并表?谢谢  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=15357)

--  作者:雨中的泪
--  发布时间:2011/12/22 9:33:00
--  当基础表“标志”列内数据相同时,合并到合并表?谢谢

当基础表“标志”列内数据相同的行,写入一行标志到合并表,并且把基础表内“标志”列相同的行的“备注”合并到刚才写入到合并表的行的备注内!!!

谢谢

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


--  作者:czy
--  发布时间:2011/12/22 9:53:00
--  

哈哈,六尾狐提这样的问题,好像有点太哪个了。

 

\'基础表DataColChanged事件
If e.DataCol.Name = "标志" Then
    If e.DataRow.IsNull("标志") = False Then
        Dim dr As DataRow = DataTables("合并表").Find("标志 = \'" & e.NewValue & "\'")
        If dr Is Nothing Then
            Dim r As Row = Tables("合并表").AddNew
            r("标志") = e.NewValue
        Else
            dr("备注") = DataTables("基础表").GetComboListString("备注","[标志] = \'" & e.DataRow("标志") & "\'").Replace("|",",")
        End If
    End If
End If


--  作者:雨中的泪
--  发布时间:2011/12/27 9:26:00
--  
窗口按钮如何实现?谢谢
--  作者:雨中的泪
--  发布时间:2011/12/27 9:27:00
--  
没有实现得到呀
--  作者:雨中的泪
--  发布时间:2011/12/27 10:24:00
--  
窗口按钮如何实现?谢谢

--  作者:雨中的泪
--  发布时间:2011/12/27 11:22:00
--  
窗口按钮如何实现?谢谢

--  作者:雨中的泪
--  发布时间:2011/12/27 11:28:00
--  
窗口按钮如何实现?谢谢
  老大帮帮忙
--  作者:czy
--  发布时间:2011/12/27 13:24:00
--  

还是留着你慢慢折腾吧。

如果实在不会写,将二楼的代码放到表事件中,在窗口写个重置列总会吧。


--  作者:雨中的泪
--  发布时间:2011/12/27 15:19:00
--  
事件是放置到位置了,但没有实现得到呀
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:备注.table


--  作者:雨中的泪
--  发布时间:2011/12/27 15:29:00
--  
比如当整列标志列内,只有一行标志"B"时,要多按一次才能实现呀?
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:备注.table