请大大指点!
If e.DataCol.Name = "通用名称" And len(e.NewValue) >= 2 Then Dim dr As DataRow dr = DataTables("用药目录").Find("[通用名称] Like '"& e.NewValue &"'" ) If dr IsNot Nothing Then e.DataRow("医院有无") = "有" 'Else 'e.DataRow("医院有无") = "无" End IfEnd If
此主题相关图片如下:错误1.png