以文本方式查看主题

-  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=44950)
--  作者：7EQ98
--  发布时间：2014/1/12 13:59:00
--  为什么备注字段写不进换行符或回车符
\'保存记录时,写入修改用户,修改日期,新建用户,新建日期,操作记录字段值
\'MessageBox.Show(e.DataTable.Name, "当前表",MessageBoxButtons.OK,MessageBoxIcon.Information)

Dim dr As  DataRow = e.DataRow
Dim EL_User_Acc As String = _User_Acc.Trim()    \'当前登录帐号
Dim EL_User_PN  As String = _User_PN.Trim()     \'当前登录帐号使用名称
Dim EL_DateTime As  Date  = Date.Now()   \'当前登录日期时间
Dim EL_Rec_Remark_Chr As String =""      \'本次操作记录
Dim EL_Rec_Remark As String = ""         \'操作记录写入值
EL_Rec_Remark_Chr = EL_User_Acc & ":" & EL_User_PN  \'当前登录帐号 & 使用名称

If dr.RowState = DataRowState.Added Then \'新增加的行
    EL_Rec_Remark = "<" & EL_Rec_Remark_Chr & ",于" & Date.Now() & " 新建记录>;" & Chr(10) & Chr(13)
    dr("New_Date") = EL_DateTime \'新建日期
    dr("New_User") = EL_User_Acc \'新建用户
    dr("Rec_Remark") = EL_Rec_Remark \'操作记录
End If

If dr.RowState = DataRowState.Modified Then \'已经修改过的行
    EL_Rec_Remark = dr("Rec_Remark").Trim()
    EL_Rec_Remark = EL_Rec_Remark &"<" & EL_Rec_Remark_Chr & ",于" & Date.Now() & " 修改记录>;" & Chr(10) & Chr(13)
    dr("Amend_Date") = EL_DateTime   \'修改日期
    dr("Amend_User") = EL_User_Acc   \'修改用户
    dr("Rec_Remark") = EL_Rec_Remark \'操作记录
End If
--  作者：lsy
--  发布时间：2014/1/12 14:04:00
--  

只贴出代码。

没表、没数据、没例子。

怎么测试。

不测试，又怎么知道，错在何处。
--  作者：有点甜
--  发布时间：2014/1/12 20:30:00
--  
 测试可以，代码如下

Tables("表A").Rows(0)("kkk") += vbcrlf & "kdfjkdjf"