以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  当输入客户名称后,自动在信息表里面找出内部编号输入到表里面。  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=45720)

--  作者:小刚
--  发布时间:2014/2/9 21:54:00
--  当输入客户名称后,自动在信息表里面找出内部编号输入到表里面。

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:查询副表.rar
  这是例子文件

 

当输入客户名称后,自动在信息表里面找出内部编号输入到表里面。

就是说,有个信息表:

 


图片点击可在新窗口打开查看此主题相关图片如下:xxb.jpg
图片点击可在新窗口打开查看


 

还有个订单表窗口:当在订单表窗口里面输入[信息]表里面含有的“客户名称”时,

 


图片点击可在新窗口打开查看此主题相关图片如下:ck.jpg
图片点击可在新窗口打开查看

 

就自动在主表里面的 ”内部编号“ 输入 出【信息】表里面的相对应的 ”内部编号“。

 

 
 


图片点击可在新窗口打开查看此主题相关图片如下:zb.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2014-2-9 21:54:50编辑过]

--  作者:有点甜
--  发布时间:2014/2/9 22:01:00
--  
 编写表的datacolchanged事件,代码如下

If e.DataCol.Name = "客户名称" Then
    Dim fdr As DataRow = DataTables("信息").find("客户名称 = \'" & e.NewValue & "\'")
    If fdr IsNot Nothing Then
        e.DataRow("内部编号") = fdr("内部编号")
    End If
End If