Dim nd As WinForm.ComboBox = e.Form.Controls("定植年度")Dim lp As WinForm.ComboBox = e.Form.Controls("施肥类别")Dim fl As WinForm.NumericComboBox = e.Form.Controls("施肥量")DataTables("地块岗位表").ReplaceFor(lp.name, fl.value, "[定植年度] = '" & nd.text & "'")