老师：你好！请教一下，在窗口中编辑订单表（左表）客户ID列的状态下，通过上下键找到要输入的客户ID和客户名称，但按回车键（Enter)后 左表为什么只显示客户名称 客户ID没有。我的代码是在订单表的KeyDownEdit中写入：If e.Col.Name = "客户ID" AndAlso e.KeyCode = Keys.Up Or e.Col.Name = "客户名称" AndAlso e.KeyCode = Keys.Up Then If Forms("窗口1").Opened() Then
Dim tbl As Table = Tables("窗口1_Table2")
tbl.Position = tbl.Position - 1 '向上移动一行
e.Cancel = True
End If
ElseIf e.Col.Name = "客户ID" AndAlso e.KeyCode = Keys.Down Or e.Col.Name = "客户名称" AndAlso e.KeyCode = Keys.Down Then '如果按下的是下箭头按键
If Forms("窗口1").Opened() Then
Dim tbl As Table = Tables("窗口1_Table2")
tbl.Position = tbl.Position + 1 '向上移动一行
e.Cancel = True
End If
ElseIf e.Col.Name = "客户ID" AndAlso e.KeyCode = Keys.Enter Or e.Col.Name = "客户名称" AndAlso e.KeyCode = Keys.Enter Then
If Forms("窗口1").Opened() Then
Dim tb2 As Table = Tables("窗口1_Table2")
Dim cr As Row = Tables("订单").Current
If Tables("订单").Current("已保存") = True Then
Return
Else
cr("客户ID") = tb2.Current("客户ID")
cr("客户名称") = tb2.Current("客户名称")
End If
End If
End If
加好友 
发短信
Post By：2020/7/22 15:03:00 [显示全部帖子]
