|
'添加到待办事项
Select Case e.DataCol.Name
Case "表名","ID","审批状态"
If e.DataRow("审批状态") <> "已审批完成" AndAlso e.DataRow("审批状态") <> "" Then
Dim nma() As String = {"审批状态","ID"} 'A表数据来源列
Dim nmb() As String = {"审批状态","ID"} 'B表数据接收列
Dim dr As DataRow = DataTables("待办事项").SQLFind("ID = '" & e.DataRow("ID") & "'")
If dr Is Nothing Then '如果没有找到
dr=DataTables("待办事项").AddNew()
dr("表名") = CurrentTable.Name
For i As Integer = 0 To nma.Length - 1
dr(nmb(i)) = e.DataRow(nma(i))
Next
Else
Dim Filter As String = "ID = '" & e.DataRow("ID") & "'"
Dim drs As List(Of DataRow) = DataTables("待办事项").Select(Filter)
For Each ds As DataRow In drs
ds(e.DataCol.Name) = e.NewValue
Next
End If
Else
DataTables("待办事项").sqlDeletefor("ID = '" & e.DataRow("ID") & "'")
DataTables("待办事项").load
End If
End Select
|
加好友 
发短信
Post By：2018/10/17 17:10:00 [显示全部帖子]
