|
Dim dst as WinForm.DataList = e.form.Controls("DataList1")
If e.KeyCode = Keys.Up Then
dst.Position = dst.Position - 1
End If
If e.KeyCode = Keys.Down Then
dst.Position = dst.Position + 1
End If
If e.KeyCode = Keys.Enter Then
Dim dr as row = Tables("医嘱").Current
Dim drr as Datarow = dst.Current
dr("项目") = drr("项目")
dr("规格") = drr("规格")
dr("类别") = drr("类别")
dr("单位") = drr("单位")
dr("单价") = drr("单价")
Tables("医嘱").select(Tables("医嘱").Rows.Count - 1, 5)
e.form.Close()
CurrentTable.Focus
End If
|
加好友 
发短信
Post By：2009/10/14 15:31:00 [只看该作者]
