Dim dr As Row = Tables("表A").Current If e.Row("第一列") = dr("第一列") Then e.Table.DataTable.AddUserStyle("xxx", Color.white, Color.blue) e.Table.DataTable.Styles("xxx").FontBold = True e.Table.DataTable.Styles("xxx").FontUnderline = True e.style = "xxx" End If