'GridView表头强制不换行 objGv.HeaderRow.Style.Add("word-break", "keep-all") 'GridView内容强制不换行 For i AsInteger=0To objGv.Rows.Count -1 For j AsInteger=0To objGv.Rows(i).Cells.Count -1 objGv.Rows(i).Cells(j).Wrap =False objGv.Rows(i).Cells(j).Style.Add("word-break", "keep-all") Next Next