|
请高手们帮我看一看
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
If Node.Children = 0 Then
Set rs = New ADODB.Recordset
sql = "select * from jilu where 客户='" & Node.Text & "'"
rs.Open sql, cnn, 3, 2
i = 1
With ListView1
.ListItems.Clear
Do While Not rs.EOF
.ListItems.Add.Text = rs!序号
.ListItems(i).SubItems(1) = rs!客户 & ""
.ListItems(i).SubItems(2) = rs!跟单 & ""
.ListItems(i).SubItems(3) = rs!款式 & ""
.ListItems(i).SubItems(4) = rs!收办日期 & ""
.ListItems(i).SubItems(5) = rs!寄办日期 & ""
If rs!寄办日期 = "" Then
.ListItems(i).SubItems(6) = "测试中"
Else
.ListItems(i).SubItems(6) = "测试完毕,已寄办!"
.ForeColor = QBColor(13)
For j = 1 To 6
.ListItems(i).ListSubItems(j).ForeColor = QBColor(13)
Next j
End If
i = i + 1
rs.MoveNext
Loop
End With
End If
End Sub
问题出在红色的代码部分,我本来是想如果"寄办字段"不是null时,则listview整行用红色字体显示,如果不是则用默认字体颜色,现在不管是不是空都是红色字体,不知是何缘故,那个条件语句我换了很多的方式;如 if isempty(rs!寄办日期)=true,还有trim(rs!寄办日期)=null都不行,请问高手,这个条件测试应该写 |
|