列名加上中括号
Dim dr As DataRow = e.Table.DataTable.find("([" & e.Col.Name & "]= '" & e.Row(e.Col.Name) & "') And 预约医生='" & e.row("预约医生") & "'")