既然DataRow可以，那么Row也可以。

因为Row有DataRow属性，可以返回对应的DataRow：

e.Row.DataRow.GetParentRow("父表名称")

不过确实不应该在DrawCell事件中有太多复杂的计算和引用工作，以免影响运行速度。

我用了：

　　Dim kmmcs As DataRow = e.Row.DataRow.GetParentRow("收入科目")
　　Dim kmmc As String = kmmcs("科目名称")

　　问题解决了。

不知道这样做是不是会影响运行速度？

Dim kmmcs As DataRow = e.Row.DataRow.GetParentRow("收入科目")
Select Case e.col.name
    Case "科目名称","税款所属日期","开票日期","税票类型","税票铅印号","科目代码"
        If e.Row("科目名称") = kmmcs("科目名称") And kmmcs("末级标志") = True
            e.style = "科目名称绿"
        End If
    Case "乡镇代码","乡镇名称","征收部门代码","征收部门名称"
        e.style = "黄色"
End Select

改成了以上代码，可以运行，但是过一会儿会出现以下错误代码，并清除了所有格式，不知是什么原因？

Exception has been thrown by the target of an invocation.

Dim kmmcs As DataRow = e.Row.DataRow.GetParentRow("收入科目")
If kmmcs  IsNot Nothing Then
    Select Case e.col.name
        Case "科目名称","税款所属日期","开票日期","税票类型","税票铅印号","科目代码"
            If e.Row("科目名称") = kmmcs("科目名称") And kmmcs("末级标志") = True
                e.style = "科目名称绿"
            End If
        Case "乡镇代码","乡镇名称","征收部门代码","征收部门名称"
            e.style = "黄色"
    End Select
End If