小妹暂时无分,但是恳请大家能给与帮助。在运行“打印”程序时,出现标题所示错误信息。代码如下:
..........
..........(因程序太大,恕不能全部贴上来。)
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显示此处为错误的地方。
............一旦有了分数,一定奉上!!!多谢大侠了~~
..........
..........(因程序太大,恕不能全部贴上来。)
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显示此处为错误的地方。
............一旦有了分数,一定奉上!!!多谢大侠了~~
delete时不用*
strTemp1 = "INSERT INTO TempH(field1,field2,field3) "& _
"SELECT field1,field2,field3 FROM 不合格 "& _
"WHERE 报告编号='" & .Bgbh & "' AND 样品编号='" & strTemp & "'"