Foxtable(狐表)用户栏目专家坐堂 → [求助]帮助文件自定义界面四中自动填充的疑问


  共有9389人关注过本帖平板打印复制链接

主题:[求助]帮助文件自定义界面四中自动填充的疑问

帅哥哟,离线,有人找我吗?
sunbrain
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:383 积分:2439 威望:0 精华:0 注册:2011/12/3 22:19:00
[求助]帮助文件自定义界面四中自动填充的疑问  发帖心情 Post By:2012/10/20 1:12:00 [只看该作者]

在学习复杂的窗口制作,有一段不是很懂

请教大家:

 

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
按此在新窗口浏览图片

 回到顶部