Dim t As Date t = DataTables("长期医嘱").Compute("max(开嘱日期)") DataTables("长期医嘱").ReplaceFor("执行", 1,"[住院号] = '"& e.Form.Controls("ComboBox1").value & "'"And"[开嘱日期]=t")
[此贴子已经被作者于2011-8-6 16:47:35编辑过]
2楼
kylin 发表于:2011/8/6 17:16:00
DataTables("长期医嘱").ReplaceFor("执行", 1,"[住院号] = '"& e.Form.Controls("ComboBox1").value & "' And [开嘱日期]= #"& t & "# ")