VB.NET WebForms实现GridView单元格多行显示与分模块着色咨询

一、不同型号数据模块区分颜色 #

利用GridView的RowDataBound事件，在每行数据绑定完成后，根据型号字段的值设置行或单元格的背景色：

1. 前台GridView声明（示例）：

<asp:GridView ID="GridView1" runat="server" OnRowDataBound="GridView1_RowDataBound">
    <Columns>
        <asp:BoundField DataField="Model" HeaderText="型号" />
        <asp:BoundField DataField="Location" HeaderText="位置" />
        <!-- 其他字段 -->
    </Columns>
</asp:GridView>

2. 后台VB.NET代码：

Protected Sub GridView1_RowDataBound(sender As Object, e As GridViewRowEventArgs)
    ' 只处理数据行，跳过表头、页脚等
    If e.Row.RowType = DataControlRowType.DataRow Then
        ' 获取当前行的型号值，假设数据源中字段名为Model
        Dim model As String = DataBinder.Eval(e.Row.DataItem, "Model").ToString()
        
        ' 根据型号设置背景色
        Select Case model
            Case "型号A"
                e.Row.BackColor = System.Drawing.Color.LightBlue
            Case "型号B"
                e.Row.BackColor = System.Drawing.Color.LightGreen
            Case "型号C"
                e.Row.BackColor = System.Drawing.Color.LightSalmon
            ' 其他型号可继续添加Case分支
            Case Else
                e.Row.BackColor = System.Drawing.Color.White ' 默认颜色
        End Select
        
        ' 若仅需给型号列单元格设置颜色，可替换为：
        ' e.Row.Cells(0).BackColor = System.Drawing.Color.LightBlue
    End If
End Sub

二、Location字段单元格内多行显示 #

根据数据格式选择以下两种常用实现方式：

方式1：绑定数据时替换分隔符为HTML换行标签 #

如果Location字段内容用换行符（\r\n）或其他分隔符（如逗号、分号）分隔，直接在绑定阶段替换为<br/>让浏览器解析为换行：

<asp:GridView ID="GridView1" runat="server" OnRowDataBound="GridView1_RowDataBound">
    <Columns>
        <asp:BoundField DataField="Model" HeaderText="型号" />
        <asp:TemplateField HeaderText="位置">
            <ItemTemplate>
                <%# Replace(Eval("Location").ToString(), vbCrLf, "<br/>") %>
            </ItemTemplate>
        </asp:TemplateField>
        <!-- 其他字段 -->
    </Columns>
</asp:GridView>

如果用逗号分隔，只需把替换目标改为逗号：Replace(Eval("Location").ToString(), ",", "<br/>")

方式2：使用Literal控件控制格式 #

需要更灵活的格式控制时，可借助Literal控件：

<asp:TemplateField HeaderText="位置">
    <ItemTemplate>
        <asp:Literal ID="litLocation" runat="server" Text='<%# Replace(Eval("Location").ToString(), vbCrLf, "<br/>") %>'></asp:Literal>
    </ItemTemplate>
</asp:TemplateField>

内容的提问来源于stack exchange，提问作者qing