Dim dr As Row = Tables("基本信息").Current
msgbox(iif(dr.DataRow.RowState = DataRowstate.added,"",dr.DataRow.OriginalValue("档案编号").Substring(0,6)))
这段代码有什么问题吗?
当不是新增行时,显示正常,新增行时提示错误:
![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/png.gif)
此主题相关图片如下:qq图片20160520212008.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2016-5/201652021194490187.png)
新增行状态下,不带substring()正常
msgbox(iif(dr.DataRow.RowState = DataRowstate.added,"",dr.DataRow.OriginalValue("档案编号").Substring(0,6)))
[此贴子已经被作者于2016/5/20 21:30:47编辑过]