Foxtable(狐表)用户栏目专家坐堂 → 求助!不同表中行复制


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

主题:求助!不同表中行复制

帅哥哟,离线,有人找我吗?
听雪落的声音
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:155 积分:1292 威望:0 精华:0 注册:2009/2/23 15:17:00
  发帖心情 Post By:2009/5/26 11:28:00 [只看该作者]

速度确实不快,测试了一下,不到3000条记录,十来秒。
用SQL语法不知道会不会快点儿。

 回到顶部
美女呀,离线,留言给我吧!
yangming
  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:4109 积分:23338 威望:0 精华:21 注册:2008/9/1 20:07:00
  发帖心情 Post By:2009/5/26 11:31:00 [只看该作者]

不明白,为何不用填充器呢?

 回到顶部
帅哥哟,离线,有人找我吗?
听雪落的声音
  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:155 积分:1292 威望:0 精华:0 注册:2009/2/23 15:17:00
  发帖心情 Post By:2009/5/26 12:54:00 [只看该作者]

窗口1中button2的功能用填充器能实现不?代码怎么写?

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table


 回到顶部
美女呀,离线,留言给我吧!
yangming
  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:4109 积分:23338 威望:0 精华:21 注册:2008/9/1 20:07:00
  发帖心情 Post By:2009/5/26 13:40:00 [只看该作者]

DataTables("发放记录").DataRows.Clear()
dim f As New Filler
f.SourceTable = DataTables("人员表") '指定数据来源
f.DataTable = DataTables("发放记录") '指定数据接收表
f.Fill() '填充数据
For Each dr As DataRow in DataTables("发放记录").DataRows
    dr("数据期别") = e.Form.Controls("TextBox1").value
    dr("发放日期") = date.today
Next

 回到顶部
美女呀,离线,留言给我吧!
yangming
  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:4109 积分:23338 威望:0 精华:21 注册:2008/9/1 20:07:00
  发帖心情 Post By:2009/5/26 13:51:00 [只看该作者]

这是带提示的

Dim txt As String = e.Form.Controls("TextBox1").Value
If txt = "" Then
MessageBox.Show("请填入数据期别!", "提示")
Else
DataTables("发放记录").DataRows.Clear()
dim f As New Filler
f.SourceTable = DataTables("人员表") '指定数据来源
f.DataTable = DataTables("发放记录") '指定数据接收表
f.Fill() '填充数据
For Each dr As DataRow in DataTables("发放记录").DataRows
    dr("数据期别") = txt
    dr("发放日期") = date.today
Next
End If

 回到顶部
总数 15 上一页 1 2