Dim dr As Row = Tables("基本信息").Current
msgbox(iif(dr.DataRow.RowState = DataRowstate.added,"",dr.DataRow.OriginalValue("档案编号").Substring(0,6)))
这段代码有什么问题吗?
当不是新增行时,显示正常,新增行时提示错误:

此主题相关图片如下:qq图片20160520212008.png

新增行状态下,不带substring()正常
msgbox(iif(dr.DataRow.RowState = DataRowstate.added,"",dr.DataRow.OriginalValue("档案编号").Substring(0,6)))
[此贴子已经被作者于2016/5/20 21:30:47编辑过]