| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 一个单元格有多行照片名，如何将这个单元格内容，复制到另一个单元格？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=107276) |
| -- 作者：zhangjian222200 -- 发布时间：2017/9/24 22:47:00 -- 一个单元格有多行照片名，如何将这个单元格内容，复制到另一个单元格？ 如题： |
| -- 作者：有点甜 -- 发布时间：2017/9/24 23:53:00 -- 1、什么时候复制？
2、复制的逻辑是什么？ |
| -- 作者：zhangjian222200 -- 发布时间：2017/9/25 0:10:00 -- Dim drbianh As String = e.Cookies("drbianhao") \'为cookie传递数据 Dim dr1 As DataRow Dim dr2 As DataRow dr1 = DataTables("会员资料").sqlFind("会员编号 = \'" & drbianh & "\'") If dr1 IsNot Nothing Then dr2 = DataTables("员工资料").AddNew() If dr2 IsNot Nothing Then For Each shz As String In dr1.Lines("生活照") \'就是希望把"会员资料"表生活照列,保存到"员工这里"表生活照列,测试保存没有成功 dr2("学历照片") &= iif(dr1.IsNull("生活照"), "", vbcrlf) & shz Next dr2.save End If End If [此贴子已经被作者于2017/9/25 0:41:58编辑过]
|
| -- 作者：有点甜 -- 发布时间：2017/9/25 0:30:00 -- 1、加入msgbox看是否进入if里面
2、赋值直接赋值
dr2.lines("学历照片") = dr1.lines("生活照") |
| -- 作者：zhangjian222200 -- 发布时间：2017/9/25 0:43:00 -- 处理后，把行拉高，发现3楼代码成功保存了 |
| -- 作者：有点甜 -- 发布时间：2017/9/25 8:42:00 -- 以下是引用zhangjian222200在2017/9/25 0:43:00的发言：
处理后，把行拉高，发现3楼代码成功保存了
赋值这样写
dr2.lines("学历照片") = dr1.lines("生活照")
|