以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]合并文件后清除表B的内容  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=116003)

--  作者:蝠
--  发布时间:2018/3/18 15:19:00
--  [求助]合并文件后清除表B的内容
我昨天才接触狐表,今天跟着视频练习设计,我是在表B窗体上输入信息,然后合并到表A里。
代码是这样写的

Dim Result As DialogResult
Result = MessageBox.Show("是否将当前页面数据导入?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
Dim f As New Filler
f.SourceTable = DataTables("表B") \'指定数据来源
f.SourceCols = "xingming,chanpin,shuliang,shouji,dingdan,kuaidi,dizhi,日期,zhuangtai" \'指定数据来源列
f.DataTable = DataTables("表A") \'指定数据接收表
f.DataCols = "xingming,chanpin,shuliang,shouji,dingdan,kuaidi,dizhi,日期,zhuangtai" \'指定数据接收列
f.Fill() \'填充数据
    MessageBox.Show("OK,导入成功.","提示")
Else
    MessageBox.Show("数据并未导入.","提示")
End If

现在我是想实现成功导入后清除表B上所有的数据,不知道怎么才能实现。


--  作者:y2287958
--  发布时间:2018/3/18 15:38:00
--  
DataTables("表B").datarows.clear 
--  作者:蝠
--  发布时间:2018/3/18 15:41:00
--  
OK了,谢谢大神