主题：这个报错是不是不能识别?

列名加上中括号

Dim dr As DataRow = e.Table.DataTable.find("([" & e.Col.Name & "]= '" & e.Row(e.Col.Name) & "') And 预约医生='" & e.row("预约医生") & "'")

你需要循环每一列判断，如果之前的列有值，就满足条件，标记为别的颜色。

For Each Cl As Col In e.Table.Cols

改成

for i as integer = 0 to e.col.index-1

    Dim cl As Col = e.table.cols(i)

如 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=100242&skin=0