If e.form.controls("NumericComboBox12").text = "" Then
e.form.Controls("NumericComboBox19").value = 0
Else
e.form.controls("NumericComboBox19").value = e.form.controls("NumericComboBox12").value * 3
End If
Tables("职 称评审").current("增分因素_晋职资历_增分年限") = e.form.controls("NumericComboBox12").text
在NumericComboBox12控件的ValueChanged事件中,想着这个控件的值一发生变化就计算并赋给NumericComboBox19
ValueChanged事件要输入焦点离开控件才能触发。NumericComboBox12控件输入完毕后建议按一下回车键
建议按回车,这样才表示输入完毕
如果是TextChanged,输一个字符就计算一次没有必要