我想用一个录入窗口在不同的表使用If e.Selected Then '如果选择了值
Dim tbl As Table = Tables("窗口4_Table1")
If tbl.Current IsNot Nothing Then
e.Form.DropDownBox.Value = tbl.Current("单位名称")
If Tables("采购订单").Focused Then
'If CurrentTable.Focus Then
Tables("采购订单").Current("单位编号") = tbl.Current("单位编号")
End If
If Tables("销售订单").Focused Then
Tables("销售订单").Current("单位编号") = tbl.Current("单位编号")
End If
If Tables("采购退出").Focused Then
Tables("采购退出").Current("单位编号") = tbl.Current("单位编号")
End If
If Tables("销售退回").Focused Then
Tables("销售退回").Current("单位编号") = tbl.Current("单位编号")
End If
If e.Form.DropTable IsNot Nothing Then '如果是通过表下拉的
e.Form.DropTable.FinishEditing()
Else '如果是通过窗口下拉的
e.Form.DropDownBox.WriteValue()
End If
End If
End If
测试结果是，单位编号不能自动录入求指教
加好友 
发短信
Post By：2018/5/17 9:53:00 [只看该作者]
