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

SystemReady = False

Tables("批量入库窗体_Table1").ResumeRedraw
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

SystemReady = True