主题：表

1、临时表不要写到drawcell事件，尽量写在窗口AfterLoad事件。查出的临时表，用一个变量记录起来，如

 

cmd.CommandText = s
Dim d As DataTable = cmd.ExecuteReader
vars("临时表") = d

 

2、在你drawcell，查询临时表进行判断，如

 

Dim d As DataTable = vars("临时表")
Dim fdr As DataRow = d.Find("编号 = '" & e.Row("编号") & "'")
If fdr Is Nothing Then
    '没有重复
End If

选择数据源之后，再生成vars("临时表")

 

vars没有值的时候，不处理drawcell事件，加一个判断

不理解你要做什么。有问题，做个实例发上来说明。

 

1、临时表不要在drawcell事件生成，请在另外某一个地方生成；

 

2、drawcell，在临时表没生成前，不要执行代码；

 

3、不会做上传实例。

 

 

 

1、可以另外用一个变量。

 

if vars("生成") = true Then

 

End If

 

2、你在另一个地方生成以后，就赋值为true

 

vars("生成") = True

For Each dr As DataRow In d.datarows 
    msgbox("执行了吗")
    Dim fdr As DataRow = dt.Find("编码 = '" & dr("cpbm") & "'")
    msgbox("执行")
    If fdr Is Nothing Then
        dr("是否NewBom") = "否"       
    Else
        dr("是否NewBom") = "是"
    End If   
Next

For Each dr As DataRow In dt.datarows
    If dr("编码") > "" thn
        Dim fdr As DataRow = dt.Find("cpbm = '" & dr("编码") & "'")
    Else
       
    End If
Next