在临时表里的drawcell里写了代码：
Dim dr As DataRow = DataTables("产品信息表").SQLFind("厂家编号 = '" & e.Row("厂家编号") & "'")
If dr IsNot Nothing Then
e.Style = "重复"
End If
Dim dr1 As DataRow = DataTables("产品需求表").SQLFind("厂家编号 = '" & e.Row("厂家编号") & "'")
若只写了黑色的代码，运行
OK，加了红色的代码就报错了：
---------------------------
编译错误:“e”是“Private”，因此它在此上下文中不可访问。
错误代码：Dim dr As DataRow = DataTables("产品信息表").SQLFind("厂家编号 = '" & e.Row("厂家编号") & "'")
---------------------------
我是想分别对2个表做存在于的判断，并分别用不同颜色标识，请问该怎么做？
加好友 
发短信
Post By：2014/12/21 11:12:00 [显示全部帖子]
