老师好,请问一下怎样用colorpicker实现用户自定义特定行的颜色,现在我的逻辑是这样的:直接在行里加一列扩展类型设为颜色,加一个独立窗口设置颜色,如下图
此主题相关图片如下:666.png
然后在表属性的afterload里遍历行,让其颜色等于自己那一行颜色的值,但是赋值的时候出问题了,请问一下老师该怎么改
下面是赋值的代码
Dim c1 As color = e.form.controls("ColorPicker1").value
Dim c2 As color = e.form.controls("ColorPicker2").value
Dim c3 As color = e.form.controls("ColorPicker3").value
For Each r As Row In Tables("发货库存_table1").Rows
If r("库存天数") > e.form.controls("textbox3").value Then
r("颜色")=c3
ElseIf r("库存天数") > e.form.controls("textbox2").value Then
r("颜色")=c2
ElseIf r("库存天数") > e.form.controls("textbox1").value Then
r("颜色")=c1
End If
Next
谢谢老师