其他表还有类似这样的代码，每次重置才能刷新，很麻烦，所以才想到用切换表就自动重置
Select Case e.DataCol.Name
Case "第一列","第二列","第三列"
Dim dr As DataRow = e.DataRow
Dim pr As DataRow
If dr.IsNull("第一列") OrElse dr.IsNull("第二列") OrElse dr.IsNull("第三列") Then
dr("第四列") = Nothing
Else
Dim filter As String
filter = "第一列 = '" & dr("第一列") & "' And 第二列 = '" & dr("第二列") & "' And 第三列 = '" & dr("第三列") & "'"
pr = DataTables("Mps_Future").Find(filter)
If pr IsNot Nothing Then
e.DataRow("第四列") = "已上传"
Else
e.DataRow("第四列") = "未上传"
End If
End If
End Select
Select Case e.DataCol.Name
Case "第一列","第二列","第三列"
Dim dr As DataRow = e.DataRow
Dim pr As DataRow
If dr.IsNull("第一列") OrElse dr.IsNull("第二列") OrElse dr.IsNull("第三列") Then
Else
Dim filter As String
filter = "第一列 = '" & dr("第一列") & "' And 第二列 = '" & dr("第二列") & "' And 第三列 = '" & dr("第三列") & "'"
pr = DataTables("Mps_Future").Find(filter)
If pr IsNot Nothing Then
pr("第四列") = "已上传"
End If
End If
End Select
If e.DataCol.Name = "第三列新" AndAlso e.NewValue > 0 Then
e.DataRow("第三列") = e.DataRow("第三列新")
End If
If e.DataCol.name = "第五列" Then
If e.NewValue.length = 8 Then
Dim d As Date = new Date(e.NewValue.Substring(0,4), e.newvalue.substring(4,2), e.newvalue.substring(6,2))
e.DataRow("第五列")= d
End If
End If
Select Case e.DataCol.Name
Case "北京"
If e.DataRow.IsNull("北京") = False Then
Dim nma() As String = {"1","2","3","4","5","6","7","8","9","10","11","12"} '
Dim nmb() As String = {"1","2","3","4","5","6","7","8","9","10","11","12"} '
Dim dr As DataRow = DataTables("7").AddNew()
For i As Integer = 0 To nma.Length - 1
dr(nmb(i)) = e.DataRow(nma(i))
Next
End If
End Select
加好友 
发短信
Post By：2017/5/31 18:59:00 [显示全部帖子]
