- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]代码错误提示 已解决！ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=50617)
-- 发布时间：2014/5/9 19:43:00
-- [求助]代码错误提示 已解决！
请大大指点！
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 If
End If
此主题相关图片如下：错误1.png
[此贴子已经被作者于2014-5-9 20:23:08编辑过]
-- 发布时间：2014/5/9 20:23:00
--
没人过问，流自己的汗，自己的事自己先干！