If e.Selected Then '如果选择了值
Dim tbl As Table = Tables("B_Table1")
Dim dj As WinForm.TextBox = Forms("1-A记录").Controls("TextBox-danjia")
If tbl.Current IsNot Nothing Then
e.Form.DropDownBox.Value = tbl.Current("批号")
Tables("A记录").Current("规格") = tbl.current("规格型号")
Tables("A记录").Current("数量") = tbl.current("实收数量")
End If
If e.Form.DropTable IsNot Nothing Then '如果是通过表下拉的
e.Form.DropTable.FinishEditing()
Else '如果是通过窗口下拉的
MessageBox.Show(1)
e.Form.DropDownBox.WriteValue()
End If
End If
代码这样写后 可以执行 但不填写 下拉列表框 了 “批号” 字段，其他字段填写正确！~
这是什么问题？ 不能这样用？
[此贴子已经被作者于2017/6/24 16:30:24编辑过]
加好友 
发短信
Post By：2017/6/23 20:57:00 [显示全部帖子]
