DataGridView颜色控制、循环添加多行生成空表并绑定

        private void 颜色控制(DataGridView 控件名)
        {
            this.BeginInvoke(new Action(() =>
            {
                for (int 行 = 0; 行 < 控件名.Rows.Count; 行 += 4)
                {
                    控件名.Rows[行].DefaultCellStyle.BackColor = Color.LightGreen;
                    控件名.Rows[行 + 3].DefaultCellStyle.BackColor = Color.LightPink;
                    /*对数据更新按日期设置颜色,一星期内为红色Red,一星期后为Aqua/粉红Violet或蓝色Blue。*/
                    int 列 = 0; string[] 解析; DateTime 日期;
                    do
                    {
                        string 单元格值 = 控件名.Rows[行 + 2].Cells[列].Value.ToString();
                        if (单元格值.Contains("★"))
                        {
                            解析 = 数据解析(单元格值, "★");
                            if (DateTime.TryParse(解析[1], out 日期))
                                if (解析[0] != "")
                                {
                                    详情查编.Rows[行 + 2].Cells[列].Value = 解析[0];
                                    详情查编.Rows[行 + 2].Cells[列].ToolTipText = 解析[1];
                                    int 日差 = (DateTime.Now - DateTime.Parse(解析[1])).Days;
                                    if (日差 <= 14)
                                        详情查编.Rows[行 + 2].Cells[列].Style.ForeColor = Color.Violet;
                                    if (日差 > 14 && 日差 <= 28)
                                        控件名.Rows[行 + 2].Cells[列].Style.ForeColor = Color.Red;
                                    if (日差 > 28 && 日差 <= 56)
                                        控件名.Rows[行 + 2].Cells[列].Style.ForeColor = Color.Blue;
                                }
                        }
                    } while (++列 < 控件名.ColumnCount);
                }
            }));
        }
循环添加多行生成空表并绑定
DataTable 空表 = new DataTable();
for (int 序 = 0; 序 < 8; 序++)
    空表.Columns.Add("总序:" + (序 + 1).ToString());
空表.Rows.Add(72);
DataGridView.DataSource = 空表;
VB
    Sub 表格控件颜色控制(表格控件 As DataGridView, 参数 As Int16)
        Dim 行数 As Int16 = 表格控件.Rows.Count - 1
        Do
            '表格控件.Rows(行数).DefaultCellStyle.BackColor = IIf(参数 = 行数 Mod 2, Color.AliceBlue, Color.Beige)
            表格控件.Rows(行数).Cells(0).Style.BackColor = IIf(参数 = 行数 Mod 2, Color.AliceBlue, Color.Beige)
            '表格控件.Columns(行数).DefaultCellStyle.BackColor = IIf(参数 = 行数 Mod 2, Color.AliceBlue, Color.Beige)
            行数 -= 1
        Loop While (行数 >= 0)
    End Sub
        Dim biaoge As DataGridView = New DataGridView
        biaoge.Parent = Me
        biaoge.Location = New Point(10, 46)
        biaoge.DataSource = 数据表
        表格控件颜色控制(biaoge, 1)
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值