主题：全局表DrawCell代码部分失效,怎么解决

不可能,除非列名不是这个,  你看看标题和列名有没搞错.

你不会是两段代码放到一起吧?

是在一起啊，全在全局表事件里啊

 If e.Table.Name = "当月二保" Then
    '代码
    If e.Col.Name = "靠挂费日期" AndAlso e.Row.Isnull(e.Col.Name) = False Then
        e.Text = Format(e.Row(e.Col.Name), "yyyy-MM")       
    End If
    If e.Col.Name = "靠挂费日期" Then
        Dim d1 As Date = e.Row("靠挂费日期")
        Dim d2 As Date = e.Row("应维护日期")
        If Format(d1,"yyyyMM") > Format(d2, "yyyyMM") Then
            e.Text = Nothing
        End If      
    End If
End If

你放在一起,完全搞不懂你想做什么.

这样就只有当月二保表里的靠挂费日期显示为yyy-mm了，其它表里不变了

是不是因为相比较大小的两个列显示格式不一样才会产生无效的啊

If e.Table.Name = "当月二保" Then
    '代码
    If e.Col.Name = "靠挂费日期" Then
       
        Dim d1 As Date = e.Row("靠挂费日期")
        Dim d2 As Date = e.Row("应维护日期")
        If Format(d1,"yyyyMM") > Format(d2, "yyyyMM") Then
            e.Text = Nothing
        Else
            If e.Row.Isnull(e.Col.Name) = False Then
                e.Text = Format(e.Row(e.Col.Name), "yyyy-MM")
            End If
        End If
    End If
End If