'---获取已删除行(通过sql事务一次性删除)
Dim systable As System.Data.DataTable = tb.BaseTable
Dim ChangeTable As System.Data.DataTable = systable.GetChanges(System.Data.DataRowState.Deleted)
If ChangeTable IsNot Nothing Then
Dim strIDC As String = "" '单据识别列
For Each cdr As System.Data.DataRow In ChangeTable.Rows '遍历删除行
'--集合所有删除表单的单据识别列
If cdr(dr("IDC"),System.Data.DataRowVersion.Original) > "" Then '单据识别列不为空
strIDC + = cdr(dr("IDC"),System.Data.DataRowVersion.Original)
End If
Next
End If
上面红色的表示删除掉的行的IDC字段不为空时才执行,但这样写提示出错,要怎么写才行?
谢谢!
加好友 
发短信
Post By：2017/10/28 8:58:00 [只看该作者]
