Dim Style As Xls.Style = Book.NewStyle '新建一个样式 标题行
Style.BackColor = Color.black '样式的背景颜色设为黑色
Style.ForeColor = Color.White '设置样式的字体颜色
Dim Style1 As Xls.Style = Book.NewStyle '新建一个样式 奇数行
Style1.BackColor = Color.LightGray '样式的背景颜色设为灰色
Style1.ForeColor = Color.black '设置样式的字体颜色
Dim st As XLS.Style = Book.NewStyle '日期列的显示格式 日期单元格
st.Format = "yyyy-MM-dd"
For r As Integer = 0 To dt.Rows.Count - 1 '填入数据
If r Mod 2 = 0 Then Sheet.rows(r).Style =style1
下面想设置成齐数行有背景色，如果还是日期类型的时候按年月日显示。
但实际上只能使用一种类型，提前按列已经将日期列设为st了，但后面奇数行设置完背景色后日期就变数字了。
加好友 
发短信
Post By：2022/4/13 15:30:00 [显示全部帖子]
