小妹暂时无分,但是恳请大家能给与帮助。在运行“打印”程序时,出现标题所示错误信息。代码如下:
..........
..........(因程序太大,恕不能全部贴上来。)
DataEnv1.Connection1.Open
        DataEnv1.Connection1.Execute "DELETE * FROM TempH"
        intTemp = List1(1).ListCount
        For I = 0 To intTemp - 1
            strTemp = List1(1).List(I)
            strTemp1 = "INSERT INTO TempH SELECT * FROM 不合格 WHERE " _
                & "报告编号='" & .Bgbh & "' AND 样品编号='" & strTemp & "'"
            DataEnv1.Connection1.Execute strTemp1------VB显示此处为错误的地方。
............一旦有了分数,一定奉上!!!多谢大侠了~~