主题：批量入库后数据表表现数据了

 入库按钮写了如下代码运行后，添加数据是，窗体表有明显的闪屏，数据表也不不显示数据成为白屏。必须重新登录程序后才能显示数据，是什么原因呢？

  SystemReady = False

Try
                DataTables("POS机库存资料").StopRedraw
                For i As Integer = ka1 To ka2
                    Dim r As Row = Tables("库存资料").AddNew
                    r("条码") = pfix & format(i, gszf) & xiaoym
                    r("类型") = e.Form.Controls("jijuleixingCombo").text
                    r("厂家名称") = e.Form.Controls("changjiamingchengCombo").text
                    r("来源") = e.Form.Controls("jijulaiyuanCombo").text
                    Tables("批量入库窗体_Table1").Save
                Next
                Tables("批量入库窗体_Table1").ResumeRedraw
            Catch ex As Exception
             MessageBox.Show("追加数据失败")
            End Try
            SystemReady = True          

没有提示

闪屏还是出现

弹出和结果正常，就是在保存数据过程闪屏，添加十几条记录都得闪十几秒钟

确实按您的思路来的还是闪屏

重新做没问题，添加八九千行也没问题，我的程序怎么就是出现闪屏呢是哪的原因呢？

重新做没问题，添加八九千行也没问题，我的程序怎么就是出现闪屏，一般是哪的原因呀