以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=18650)
--  作者：wilson
--  发布时间：2012/4/19 23:49:00
--  求助
我想实现点激菜单按钮，把A表的选定行，复制到B表的空格行，如果空格行不够，将自动增加行，并打开B表。请求帮助谢谢！！！
--  作者：blackzhu
--  发布时间：2012/4/20 7:51:00
--  
这个论坛太多了.自己找找.
--  作者：狐狸爸爸
--  发布时间：2012/4/20 8:55:00
--  

Dim r As Row = Tables("表A").Current

Dim dr As DataRow = DataTables("表B").Find(“某列1 Is NUll And 某列1 Is NuLL”)

If dr is nothing then

    dr = Datatables("表B").AddNew

End if

dr("某列1") = r("某列1")

dr("某列2") = r("某列2")

dr("某列3") = r("某列3")

 
--  作者：wilson
--  发布时间：2012/4/20 16:01:00
--  

问提已解决,非常感谢狐狸爸爸帮助与支持!

   如果我把菜单按钮改为窗口按钮,并且不允许填充重复的内容到B表的某行,就会非常使用.

我弄了半天还没弄好,请问狐狸爸爸能不能帮忙

 
--  作者：狐狸爸爸
--  发布时间：2012/4/20 16:11:00
--  

Dim r As Row = Tables("表A").Current
Dim dr As DataRow  = DataTables("表B").Find("某列1 = \'" & r("某列1") & "\' And  某列2 = \'"  & r("某列2") & "\'")
If dr Is Nothing Then
    dr = DataTables("表B").Find("某列1 Is NUll And 某列1 Is NuLL")
    If dr Is Nothing Then
        dr = DataTables("表B").AddNew
    End If
    dr("某列1") = r("某列1")
    dr("某列2") = r("某列2")
    dr("某列3") = r("某列3")
End If

 

看看：

http://www.foxtable.com/help/topics/0396.htm

http://www.foxtable.com/help/topics/1284.htm

 
--  作者：wilson
--  发布时间：2012/4/20 21:21:00
--  

谢谢你!对我的帮助,我的问提已解决