主题：[求助]单元格如何追加新字符

这里是其中一段代码,判断一下"备注"列是否有内容,如有则在不删除原内容的基础上再加上新的内容,中间用 ; 隔开

For Each dr As Row In Tables("退回_出库副表").GetCheckedRows

    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("备注") =    ‘这里怎么写,不删掉原有的内容,再追加 上面一行 的内容

    End If

Next

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

"i"是"pvivate",因此它在上下文中不可访问

不会出现这样的错误,你检查一下你的代码 是否和我的一样

对不起,编译过了

也不可能出现这样的错误. 另外这里应该改为

Bin 老师,我的表设置的是 只能 复选一行,不会出现多行,是不是和这个有关系 

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

不用遍历的