Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]复制


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

主题：[求助]复制
帅哥哟，离线，有人找我吗？
江南小城
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		[求助]复制  发帖心情 Post By：2016/7/23 20:52:00 [显示全部帖子]

老师，按条件复制，譬如“摘要”列有不同的字段名称其中含有销售和付款这两个字段的行自动复制到另一个表中。复制行的列也要得到限制不复制所有列。

 回到顶部
帅哥哟，离线，有人找我吗？
江南小城
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2016/7/24 18:45:00 [显示全部帖子]

以下是引用江南小城在2016/7/23 20:52:00的发言：
老师，按条件复制，譬如“摘要”列有不同的字段名称其中含有销售和付款这两个字段的行自动复制到另一个表中。复制行的列也要得到限制不复制所有列。
Select Case e.DataCol.name
    Case "产品编号"
        Dim dr As DataRow = DataTables("库存").Find("产品编号 = '" & e.OldValue & "'")
        If dr Is Nothing Then 
            dr = DataTables("库存").AddNew()
            dr("产品编号") = e.DataRow("产品编号")
            dr("产品名称") = e.DataRow("产品名称")
            dr("产品规格") = e.DataRow("产品规格")
        Else
            dr("产品编号") = e.DataRow("产品编号")
        End If
    Case "产品名称","产品规格"
        Dim dr As DataRow = DataTables("库存").Find("产品编号 = '" & e.DataRow("产品编号") & "'")
        If dr IsNot Nothing Then
            dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
        End If
End Select
老师，上面代码一知半解，不知怎样修改？我要把摘要列含销售和采购的字段复制到库存表去。
 回到顶部
帅哥哟，离线，有人找我吗？
江南小城
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2016/7/25 9:07:00 [显示全部帖子]

老师，把"农行个人账户管理"表"交易摘要"列中含 银证转账 字段 行的部分数据自动复制到"银证交割"表中
下面代码望老师给予修改。谢谢

Select Case e.DataCol.name
    Case "产品编号"
        Dim dr As DataRow = DataTables("库存").Find("产品编号 = '" & e.OldValue & "'")
        If dr Is Nothing Then 
            dr = DataTables("库存").AddNew()
            dr("产品编号") = e.DataRow("产品编号")
            dr("产品名称") = e.DataRow("产品名称")
            dr("产品规格") = e.DataRow("产品规格")
        Else
            dr("产品编号") = e.DataRow("产品编号")
        End If
    Case "产品名称","产品规格"
        Dim dr As DataRow = DataTables("库存").Find("产品编号 = '" & e.DataRow("产品编号") & "'")
        If dr IsNot Nothing Then
            dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
        End If
End Select



 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:有条件复制.table
 回到顶部
帅哥哟，离线，有人找我吗？
江南小城
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2016/7/28 11:14:00 [显示全部帖子]

 

 

老师好，上次帮我解决问题还没有谢谢，今天又来了。

 

老师窗口代码帮我修改一下，谢谢

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:录入.table
 回到顶部
帅哥哟，离线，有人找我吗？
江南小城
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2016/7/28 11:33:00 [显示全部帖子]

材料录入窗口

 回到顶部
帅哥哟，离线，有人找我吗？
江南小城
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2016/7/28 11:46:00 [显示全部帖子]

窗口表的表头修改成和材料表的表头一样通过保存按钮复制到材料表中

 回到顶部
帅哥哟，离线，有人找我吗？
江南小城
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2016/7/28 20:15:00 [显示全部帖子]





图片点击可在新窗口打开查看此主题相关图片如下：图像 1.png
图片点击可在新窗口打开查看

If e.Form.Controls("ComboBox1").Value = Nothing Then
    MessageBox.Show("请选择供应商")
    Return
End If

For Each r As Row In Tables("材料录入_Table1").rows
    For Each c As Col In Tables("材料录入_Table1").cols
        If r.IsNull(c.name) Then
            MessageBox.Show(r.index+1 & "行 " & c.name & " 列为空")
            Return
        End If
    Next
Next

DataTables("材料表").Save
 回到顶部
帅哥哟，离线，有人找我吗？
江南小城
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2016/7/29 9:35:00 [显示全部帖子]

老师，打开窗口新增一行

 回到顶部
帅哥哟，离线，有人找我吗？
江南小城
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2016/7/29 16:23:00 [显示全部帖子]


[此贴子已经被作者于2016/7/29 22:24:34编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
江南小城
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2016/7/29 19:05:00 [显示全部帖子]



[此贴子已经被作者于2016/7/29 22:24:17编辑过]
 回到顶部
总数 11 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07422 秒, 7 次数据查询