Tables("存货").AddNew()Tables("存货").Current("货物名称") = hwmc.TextTables("存货").Current("大类") = dl.TextTables("存货").Current("小类") = xl.TextTables("存货").Current("存货数量") = jhsl.ValueTables("存货").Current("备注") = bz.Text