在学习复杂的窗口制作，有一段不是很懂
请教大家：
P1312：
5、将窗口的DropDownClosed(见 [标题编号])事件代码设置为：
If e.Selected Then '如果选择了值
Dim tbl As Table = Tables("窗口1_Table1")
If tbl.Current IsNot Nothing Then
e.Form.DropDownBox.Value = tbl.Current("客户ID")
End If
e.Form.DropDownBox.CloseDropDown()
End If
这样关闭下拉窗口后，可以自动将选定客户的客户ID输入到下拉列表框中。
红色部分：可是我希望的是把相关的内容也填入，怎么办呢？
于是，我想到在所属的表中datachanged中设置：
If e.DataCol.Name = "客户ID" Then '在产品表找出该产品
Dim dr As DataRow
dr = DataTables("客户明细表").Find("客户ID = " & "'" & e.DataRow("客户ID") & "'" )
If dr IsNot Nothing '如果找到, 则设置各列内容
e.DataRow("客户名称")= dr("客户名称")
End If
End If
结果，问题这样的：
没有实现索要的内容，结果除了莫名其貌的问题，见图：
输入的数字是哪个，出来的窗口中第一行的编号就变成了那个数字，而且还自动保存了还
请大家帮助，谢谢
此主题相关图片如下：rt3.gif
加好友 
发短信
Post By：2012/10/20 1:12:00 [显示全部帖子]
