以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  数据表中怎么增加多行？？？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=109569)
--  作者：学学
--  发布时间：2017/11/15 9:14:00
--  数据表中怎么增加多行？？？
1、数据表中怎么增加多行？？？
2、怎么清空选定的单元格？？
3、点击取消按钮的时候，，，关闭窗口，，，关闭窗口的时候不保存输入的值。。。
点击确定按钮的时候       关闭窗口        关闭窗口的时候保存输入的数据
--  作者：有点甜
--  发布时间：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
--  作者：学学
--  发布时间：2017/11/15 9:29:00
--  增加的行自己填写数字，，获取文本框里的数据怎么写？
增加的行自己填写数字，，获取文本框里的数据怎么写？
--  作者：学学
--  发布时间：2017/11/15 9:31:00
--  在全局事件里写关闭窗口的时候弹出确定窗口，，，
在全局事件里写关闭窗口的时候弹出确定窗口，，，按确定窗口保存窗口里的编辑，，，按取消不保存窗口里的编辑
--  作者：有点甜
--  发布时间：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
--  作者：有点甜
--  发布时间：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
--  作者：学学
--  发布时间：2017/11/15 10:02:00
--  谢谢甜老师！！！！！！！！！！！！
谢谢甜老师！！！！！！