红袍老师， DataRowDeleting 表事件，下面标注颜色的部分，不知道为什么执行有问题，直接导致系统错误，退出，麻烦您给看看！
'
'回收编号开始
Dim dt3 As DataTable= e.DataTable
If dt3.DataRows.count>0 Then
Dim dr1 As DataRow= dt3.DataRows(0)
If e.DataRow.Isnull(dr1("Colname"))=False Then
Dim dr As DataRow
If dr1.IsNull("Preletter")=False Then
Dim str As String() = e.DataRow(dr1("Colname")).Split("-")
Dim dt1 As Date=CDate("20" & str(1).SubString(0,2) & "-" & str(1).SubString(2,2) & "-" & str(1).SubString(4,2))
If dt1>=Date.Today Then
dr=DataTables("AS017编号回收表").AddNew()
DataTables("AS017编号回收表").Save
End If
Else
MessageBox.Show(1)‘这块显示，后面就提示错误了
dr=DataTables("AS017编号回收表").AddNew()
MessageBox.Show(dr("Tablename"))
dr("Tablename")=e.DataTable.name
dr("顺序编号")=e.DataRow(dr1("Colname"))
DataTables("AS017编号回收表").Save
End If
End If
End If
'回收编号结束
[此贴子已经被作者于2016/2/29 17:48:31编辑过]
加好友 
发短信
Post By：2016/2/29 17:42:00 [只看该作者]
