If e.Table.Current Is Nothing Then '如果Current为Nothing
Return '则返回
End If
Dim zjzh As Integer
Dim zjzh1 As DataRow
zjzh1 = DataTables("原始数据中间转换").Find("[引用] = '" & e.Table.Current("_IDENTIFY") & "'")
If zjzh1 Is Nothing Then
Dim drs As List(of DataRow) = DataTables("原始数据中间转换").AppendLoad("[引用] = '" & e.Table.Current("_IDENTIFY") & "'")
If drs.count = 0 Then
Return
Else
zjzh1 = drs(0)
End If
End If
zjzh = Tables("原始数据中间转换").FindRow(zjzh1)
If zjzh >= 0 Then
Tables("原始数据中间转换").Position = zjzh
End If
加好友 
发短信
Post By：2018/3/23 21:13:00 [显示全部帖子]
