Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]单元格如何追加新字符


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

主题：[求助]单元格如何追加新字符
帅哥哟，离线，有人找我吗？
Bin
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2014/1/10 17:11:00 [显示全部帖子]

dim rlist as list(of row) = Tables("退回_出库副表").GetCheckedRows

For i as integer=0 to  rlist.count-1

    dim dr as Row =rlist(i) 

    Dim thxl As Integer = e.Form.Controls("退回数量").value

    Dr("出库数量") = dr("出库数量") - thxl

    If dr("备注") = "" Then

        dr("备注") = e.Form.Controls("退回日期").value & "退回 " & e.Form.Controls("退回数量").value

    Else

      dr("备注") =  dr("备注") & IIF(i>1,rlist(i-1)("备注"),"")   ‘这里怎么写,不删掉原有的内容,再追加 上面一行 的内容

    End If

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


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2014/1/10 17:19:00 [显示全部帖子]

不会出现这样的错误,你检查一下你的代码 是否和我的一样
.
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2014/1/10 17:25:00 [显示全部帖子]

也不可能出现这样的错误. 另外这里应该改为
dr("备注") =  dr("备注") & IIF(i>=1,rlist(i-1)("备注"),"") 

不行你就上例子,我看下你那里搞错了
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2014/1/10 17:36:00 [显示全部帖子]

只复选一行I就不会大于1 就不会执行I-1 也就没有的出错.如果你只能选一行,你还遍历所有行干嘛呀.

你直接上例子吧.
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2014/1/10 17:59:00 [显示全部帖子]

那个窗口那个表啊,你整个项目发上来来了也不说一下.

dim rlist as list(of row) = Tables("退回_出库副表").GetCheckedRows

For i as integer=0 to  rlist.count-1

    dim dr as Row =rlist(i) 

    Dim thxl As Integer = e.Form.Controls("退回数量").value

    Dr("出库数量") = dr("出库数量") - thxl

    If dr("备注") = "" Then

        dr("备注") = e.Form.Controls("退回日期").value & "退回 " & e.Form.Controls("退回数量").value

    Else

      dr("备注") =  dr("备注") & IIF(dr.Index>=1,Tables("退回_出库副表").(dr.Index-1)("备注"),"")   

    End If

Next
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 5 次数据查询