以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于窗口中关于组合框  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=7371)
--  作者：sophia
--  发布时间：2010/6/11 21:38:00
--  关于窗口中关于组合框

窗口中有一组合框，选择其不同的列表项目时，自动调用其它表中数据，怎样实现？

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.rar
--  作者：czy
--  发布时间：2010/6/12 1:29:00
--  
\'业务种类的SelectedIndexChanged事件
Dim r As Row = Tables("表A").Current
if e.Sender.Value <> Nothing Then
    Dim dr As DataRow = DataTables("表B").Find("业务种类 = \'" & e.Sender.Value & "\'")
    If dr IsNot Nothing Then
        r("大型数量") = dr("大型数量")
        r("大型单价") = dr("大型单价")
        r("小型数量") = dr("小型数量")
        r("小型单价") = dr("小型单价")
    Else
        r("大型数量") = Nothing
        r("大型单价") = Nothing
        r("小型数量") = Nothing
        r("小型单价") = Nothing
    End If
End If
[此贴子已经被作者于2010-6-12 1:31:02编辑过]
--  作者：sophia
--  发布时间：2010/6/12 7:50:00
--  

ok，多谢！