主题：求助

我想实现点激菜单按钮，把A表的选定行，复制到B表的空格行，如果空格行不够，将自动增加行，并打开B表。请求帮助谢谢！！！

这个论坛太多了.自己找找.

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")

 

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

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

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

 

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

 

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