- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 窗口代码问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=90644)
-- 发布时间：2016/9/19 9:25:00
-- 窗口代码问题
有三个表，供应商出库、我公司入库和核对表。供应商出库和我公司入库两个表结构完全相同，核对表只是多了一个“公司名称”列，其余也完全相同。
此主题相关图片如下：我公司入库表.png
我想核对供应商出库与我公司入库的情况，我做了个窗口。当供应商出库与我公司入库核对上后，双击核对上的行，自动将该条数据剪切到核对表中。并，供应商出库表的数据剪切到核对表中时，在公司名称列显示“供应商”；我公司出库表的数据剪切到核对表中时，在公司名称列显示“我公司”。代码怎样编写，请各位大师帮忙。相应图片如下：
此主题相关图片如下：供应商出库表.png
此主题相关图片如下：供应商出库表.png-- 发布时间：2016/9/19 10:23:00
--
请大红袍大师帮忙呀，急用！
-- 发布时间：2016/9/19 11:07:00
--
-- 发布时间：2016/9/19 11:21:00
--
上传例子测试
Dim dr As Row = Tables("表A").Current
Dim drb As Row = Tables("表B").AddNew
Dim cls() As String = {"第一列","第二列","第三列","第四列","第五列"}
For Each c As String In cls
drb(c) = dr(c)
Next
dr.Delete
-- 发布时间：2016/9/19 13:46:00
--
附件，请大师帮忙。
-- 发布时间：2016/9/19 13:52:00
--
附件上传不了是怎么回事。
-- 发布时间：2016/9/19 13:59:00
--
附件上传不了。
-- 发布时间：2016/9/19 14:02:00
--
附件：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.rar |
有三个表，供应商出库、我公司入库和核对表。供应商出库和我公司入库两个表结构完全相同，核对表只是多了一个“公司名称”列，其余也完全相同。
我想核对供应商出库与我公司入库的情况，我做了个窗口。当供应商出库与我公司入库核对上后，双击核对上的行，自动将该条数据剪切到核对表中。并，供应商出库表的数据剪切到核对表中时，在公司名称列显示“供应商”；我公司出库表的数据剪切到核对表中时，在公司名称列显示“我公司”。代码怎样编写，请各位大师帮忙。
-- 发布时间：2016/9/19 14:07:00
--
请有点蓝老师帮忙，急用。
-- 发布时间：2016/9/19 15:25:00
--
请各位老师帮忙，急用。