数据表中怎么增加多行？？？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 数据表中怎么增加多行？？？

共有2800人关注过本帖树形打印复制链接主题：数据表中怎么增加多行？？？

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/11/15 9:20:00 [显示全部帖子]

1、

Tables("表A").AddNew(30)

2、

Dim t As Table = Tables("表A")
For i As Integer = t.LeftCol To t.RightCol
    For j As Integer = t.TopRow To t.BottomRow
        t(i,j) = Nothing
    Next
Next

3、

Tables("表A").DataTable.RejectChanges

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/11/15 9:36:00 [显示全部帖子]

以下是引用学学在2017/11/15 9:29:00的发言：
增加的行自己填写数字，，获取文本框里的数据怎么写？

For i As Integer = 1 To 10
    Dim nr As Row = Tables("表A").AddNew()
    nr("第一列") = 123
    nr("第二列") = e.form.controls("textbox1").text
Next

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/11/15 9:37:00 [显示全部帖子]

以下是引用学学在2017/11/15 9:31:00的发言：
在全局事件里写关闭窗口的时候弹出确定窗口，，，按确定窗口保存窗口里的编辑，，，按取消不保存窗口里的编辑

Dim dt As DataTable = Tables("表A").DataTable
If dt.HasChanges Then
    Dim Result As DialogResult
    Result = MessageBox.Show("是否保存?", "提示", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)
    If Result = DialogResult.Yes Then
        dt.Save
    ElseIf result = DialogResult.No Then
        dt.RejectChanges
    ElseIf result = DialogResult.Cancel Then
        e.cancel = True
    End If
End If

下一主题 >> << 上一主题

主题：数据表中怎么增加多行？？？