以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于窗口中，保存和新增问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=106000)
--  作者：zhangxl1964
--  发布时间：2017/8/31 7:04:00
--  关于窗口中，保存和新增问题
有点甜老师：

      有"新增"和“保存”二个按钮，要求点击“保存”按钮后，窗口中的表内容保存不显示，点击“新增”按钮后，窗口的表中自动增加需要的行数，这些代码改如何写？
--  作者：有点甜
--  发布时间：2017/8/31 8:52:00
--  

新增

 

Dim Val As Integer = 5
Do While True
    InputValue(Val, "增加行","请输入增加多少行:")
    If val > 50 Then
        msgbox("最大50行")
    Else
        CurrentTable.StopRedraw
        For i As Integer = 1 To val
            CurrentTable.AddNew
        Next
        CurrentTable.ResumeRedraw
        Exit Do
    End If
Loop
--  作者：有点甜
--  发布时间：2017/8/31 8:54:00
--  

保存

 

CurrentTable.Save

CurrentTable.DataTable.RemoveFor("1=1")
--  作者：zhangxl1964
--  发布时间：2017/8/31 9:13:00
--  
谢谢！达到目的。