主题：狐表闪退

Select Case e.DataCol.Name
   
        '----收发
       
    Case "S电雕KS","电雕DS"
        systemready = False
        Dim d0 As Date = "#" & e.DataRow("S电雕KS") & "#"
     
        '----------------------电绘预计天数
       
        Dim da00 As Integer   
        For da00 = 1 To 4
           
            If d0.AddDays(da00).dayofweek = 0 Then
            
                e.DataRow( "电雕DS") = 5
               
                Exit For
               
            Else
               
                e.DataRow( "电雕DS") = 4
               
            End If
           
        Next
        systemready = True       
End Select

 你的代码，会重复触发dataColChanged事件的。你要理一下你的逻辑。