主题：行设置颜色问题

请教老师，下面DrawCell代码，当时下拉标注列选择没有问题能实现行的颜色，但是重新加载表后，行颜色不会标注出来，是否要设颜色存放列？

 

If e.Row("标注") = "保底"  Then    
    e.Style = "保底"
End If
If e.Row("标注") = "标准"  Then
    e.Style = "标准"
End If

If e.Row("标注") = "高线"  Then
    e.Style = "高线"
End If

 你说的重新加载表指什么？用什么代码重新加载？

 

 你在drawcell事件加入代码 output.show(date.now) 看是否有触发事件。

老师，是这样的，在窗口的控件TABLE里的表是正本，打开窗口选择了标注的文字如“保底”或“标准”....，能标注行颜色，关闭窗口前保存了，但是下次再

 

打开系统和窗口（加载表）的时候，原来选择的文字是存在的，但是原来标注好的颜色都没有了

 

output.show(date.now) 加入，没有任何提示和反应

 

Dim sd As WinForm.ComboBox
    sd = e.Form.Controls("ComboBox2")
If sd.Value Is Nothing  Then
   Messagebox.Show("请先输入 年份","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
   Return
Else
Dim Cb0 As String = sd.Value
Dim y As Integer = Cb0
Dim dt1 As New Date(y, 1, 1)
Dim dt2 As New Date(y, 12, 31)

Dim Filter As String = "1=2"
Filter = "年度 >= '" & dt1 & "' And 年度 <= '" & dt2 & "'"   
DataTables("总因子").LoadFilter = Filter '设置加载条件
DataTables("总因子").Load() '加载数据
End If

 

我有测试了一下，如果改成逻辑列形式，=True 没有问题，但是如果用文字内容来标注，就不行

在命令窗口，弹出值看看

 

msgbox("aaa" & Tables("总因子").Current("标注") & "aaa")

 

如果多了很多空格，你数据库设置的列类型不正确，不能设置成nchar

老师早，在命令窗口弹出值是aaaaaa，我的标注列属性是自定义项目，如果我不用自定义项目，直接输入内容也没有问题，

 

今天一早，重新开机，又多次打开和关闭狐表又正常了，这是什么原因？？？不知道后续是否又会出现这样的问题。

下次莫名的问题，可以先试试：把项目文件夹里的bin目录整个删除，重新打开项目测试