参考:http://www.foxtable.com/webhelp/scr/1451.htm
''' 意这里第一行要加上三个单引号
If e.DataCol.Name = "科室" Then
If e.NewValue Is Nothing Then
e.DataRow("支部") = Nothing
Else
Dim dr As DataRow
dr = DataTables("表B").Find("'、' + [科室] + '、' like '%、" & e.NewValue & "、%'")
If dr IsNot Nothing
e.DataRow("支部") = dr("支部")
End If
End If
End If