Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于窗口中，保存和新增问题


  共有1998人关注过本帖树形打印复制链接

主题：关于窗口中，保存和新增问题
帅哥哟，离线，有人找我吗？
zhangxl1964
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：554 积分：5343 威望：0 精华：0 注册：2011/6/7 13:33:00 		关于窗口中，保存和新增问题  发帖心情 Post By：2017/8/31 7:04:00 [只看该作者]

有点甜老师：

      有"新增"和“保存”二个按钮，要求点击“保存”按钮后，窗口中的表内容保存不显示，点击“新增”按钮后，窗口的表中自动增加需要的行数，这些代码改如何写？
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/8/31 8:54:00 [只看该作者]

保存

 

CurrentTable.Save

CurrentTable.DataTable.RemoveFor("1=1")
 回到顶部
帅哥哟，离线，有人找我吗？
zhangxl1964
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：554 积分：5343 威望：0 精华：0 注册：2011/6/7 13:33:00 		  发帖心情 Post By：2017/8/31 9:13:00 [只看该作者]

谢谢！达到目的。
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04980 秒, 4 次数据查询