呵呵,这样少写点:
Dim r As Row = Tables("存货").AddNew()r("货物名称") = hwmc.Textr("大类") = dl.Textr("小类") = xl.Textr("存货数量") = jhsl.Valuer("备注") = bz.Text