以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  使用内部数据表如何保存?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=64900)

--  作者:南望
--  发布时间:2015/3/4 17:26:00
--  使用内部数据表如何保存?
在窗口中设置些textbox控件,并且没有绑定内部表的相应列,保存按钮事件、删除按钮事件等如何写?
--  作者:有点甜
--  发布时间:2015/3/4 17:40:00
--  

1、保存按钮这样写

 

Dim nr As row = Tables("表A").AddNew

nr("第一列") = e.Form.Controls("TextBox1").Text

 

2、删除按钮不用写,或者这样写

 

If Tables("表A").Current IsNot Nothing Then

    Tables("表A").Current.Delete

End If

[此贴子已经被作者于2015/3/4 17:40:36编辑过]

--  作者:南望
--  发布时间:2015/3/4 21:35:00
--  
呃,ADDNEW如果多点了几次保存会增加很多行的。
--  作者:有点甜
--  发布时间:2015/3/4 21:37:00
--  

 那你单独做一个新增的按钮

 

Tables("表A").AddNew

 

 保存按钮这样写

 

Tables("表A").Current("第一列") = e.Form.Controls("TextBox1").Text

 


--  作者:南望
--  发布时间:2015/3/4 23:02:00
--  
嗯,这样应该可以了,谢谢