肃宁莱盛 肃宁莱盛
关注数: 25 粉丝数: 137 发帖数: 1,879 关注贴吧数: 10
高手帮忙看一下,在线等 Private Sub Command3_Click() Adodc1.RecordSource = " SELECT * FROM 总表 WHERE 日期 = '" & Text2.Text & "'" Set DataGrid1.DataSource = Adodc1 Adodc1.Refresh DataGrid1.Refresh Do While Adodc4.Recordset.EOF = False Adodc4.Recordset.Delete Adodc4.Recordset.MoveNext Loop Adodc4.Refresh Do While Adodc1.Recordset.EOF = False Text2.Text = Adodc1.Recordset("日期") Text1.Text = Adodc1.Recordset("序号") Combo1.Text = Adodc1.Recordset("车次") Combo1.Text = Adodc1.Recordset("交口车次") Text4.Text = Adodc1.Recordset("甩车/挂车") Text5.Text = Adodc1.Recordset("到达车数") Combo2.Text = Adodc1.Recordset("到站") Combo3.Text = Adodc1.Recordset("实际煤种") Text8.Text = Adodc1.Recordset("车数") Text9.Text = Adodc1.Recordset("吨数") Text10.Text = Adodc1.Recordset("备注1") Text11.Text = Adodc1.Recordset("备注2") Text11.Text = Adodc1.Recordset("首尾车号") Adodc4.Recordset.AddNew Adodc4.Recordset("日期") = Text2.Text Adodc4.Recordset("序号") = Text1.Text Adodc4.Recordset("车次") = Combo1.Text Adodc4.Recordset("交口车次") = Text3.Text Adodc4.Recordset("甩车/挂车") = Text4.Text Adodc4.Recordset("到达车数") = Text5.Text Adodc4.Recordset("到站") = Combo2.Text Adodc4.Recordset("实际煤种") = Combo3.Text Adodc4.Recordset("车数") = Text8.Text Adodc4.Recordset("吨数") = Text9.Text Adodc4.Recordset("备注1") = Text10.Text Adodc4.Recordset("备注2") = Text11.Text Adodc4.Recordset("首尾车号") = Text12.Text Adodc4.Recordset.Update Adodc1.Recordset.MoveNext Loop Adodc4.Refresh DataReport1.Show End Sub 第一次搜索打印可以,在搜索为什么还是显示第一次搜索的打印情况,除非把程序关闭才能第二次搜索打印,是否没有关闭datareport1.show.如何关闭呢?谢谢
首页 1 2 3 下一页