以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  老师我想在我程序执行的时出现一个提示框，执行完自动消失  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=141924)

--  作者：whtb999 --  发布时间：2019/10/14 15:06:00 --  老师我想在我程序执行的时出现一个提示框，执行完自动消失 For Each dt As DataTable In DataTables     dt.Load() Next \'Dim dr3 As DataTables("库存明细").Select("VT_Spessore > 0").Count If DataTables("库存明细").Select("VT_Spessore > 0").Count>10 Then     DataTables("原片仓库").DeleteFor("[读取时间] = #" & Date.Today & "#")               For Each dr1 As DataRow In DataTables("库存明细").Select("VT_Spessore > 0")         Dim dr2 As DataRow = DataTables("原片仓库").AddNew()         For Each dc As DataCol In DataTables("库存明细").DataCols             dr2(dc.Name) = dr1(dc.name)         Next     Next          DataTables("原片仓库").Save() Else          MessageBox.Show("没有读取数据!") End If DataTables("原片内库存总计").Load() 老师我执行的就是这段程序，请问老师我怎么在代码中加入一个提示，比如说正在执行，请等待，否则可以用户以为程序死掉了。

--  作者：有点蓝 --  发布时间：2019/10/14 15:12:00 --   参考：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=73365