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

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

  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