老师好,下面是个保存按钮好像有地方不对。 If Tables("入库") .Rows.count = 0 AndAlso Tables("入库.入库管理") .Rows.count = 0 Then Return End If If Tables("入库").Current.IsNull("进货单编号") = False AndAlso Tables("入库.入库管理") .Rows.count = 0 Then Tables("入库").Current.Delete Tables("入库").save() Tables("入库管理").save() End If