- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]（有一个新的疑惑在8楼）图片上传辅助系统，可以用代码实现么？（补上一个例子） (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=34336)
-- 发布时间：2013/6/5 17:08:00
-- [求助]（有一个新的疑惑在8楼）图片上传辅助系统，可以用代码实现么？（补上一个例子）
我有一件工作，是要上传海量的图片。量大，容易出错。
我想用狐表实现一种辅助功能：
即设计一个按钮，当我点击按钮时，可以自动将工作表第一行的某个字段（设为身份证号）的值复制，并且将这一行自动放入另外一个工作表中，该行的下一行自动上升为第一行。
这个事件可以用代码实现吗？怎么做呢？
请求高手大人的帮助！十分之感谢！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:图片上传辅助.zip |
----------------------------------------------------------------
非常感谢楼上三位的代码，受益非浅！
我还有一个功能要实现，就是复制一个文本框的内容
e.Form.Controls("TextBox1").Copy()
这是我做的一段代码，TextBox1是文本框的名称，但却不能起到相应的复制效果。请问一下我的代码是哪里错了呢?我该怎么改正呢？
非常谢谢！
[此贴子已经被作者于2013-6-7 10:49:16编辑过]
-- 发布时间：2013/6/5 17:19:00
--
第一个有点麻烦
第二个你上例子吧.
-- 发布时间：2013/6/5 17:29:00
--
Tables("表B").AddNew()("身份证号") = Tables("表A").Rows(0)("身份证号")
Tables("表A").Rows(0).DataRow.Remove()
如果表B不是新增行：
一次性传完：
For Each r As Row In Tables("表B").Rows
r("身份证号") = Tables("表A").Rows(0)("身份证号")
Tables("表A").Rows(0).DataRow.Remove()
Next
点一次传一行：
Tables("已操作记录").Filter = "身份证号 Is Null"
Tables("已操作记录").Rows(0)("身份证号") = Tables("待操作表").Rows(0)("身份证号")
Tables("待操作表").Rows(0).DataRow.Remove()
[此贴子已经被作者于2013-6-5 17:56:41编辑过]
-- 发布时间：2013/6/5 17:39:00
--
谢谢楼上两位大能，我已经上传例子，主要想通过一个工作表单实现，能麻烦看一下么？谢谢！
-- 发布时间：2013/6/5 18:00:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:图片上传辅助.table |
-- 发布时间：2013/6/5 18:02:00
--
.
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:图片上传辅助.table |
-- 发布时间：2013/6/6 9:35:00
--
综合各种因素,一并解决。
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:图片上传辅助.table |
[此贴子已经被作者于2013-6-6 11:02:05编辑过]
-- 发布时间：2013/6/7 10:48:00
--
非常感谢楼上三位的代码，受益非浅！
我还有一个功能要实现，就是复制一个文本框的内容
e.Form.Controls("TextBox1").Copy()
这是我做的一段代码，TextBox1是文本框的名称，但却不能起到相应的复制效果。请问一下我的代码是哪里错了呢?我该怎么改正呢？
非常谢谢！
-- 发布时间：2013/6/7 10:54:00
--
直接赋值不就可以了吗，你想复制到哪里？
-- 发布时间：2013/6/7 11:07:00
--
嗯，我想复制到剪贴板里面