以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=117092)
--  作者：stuluo
--  发布时间：2018/4/6 11:42:00
--  [求助]

建了一个快递费用的计费表

         安能           申通

     首重  续重    首重  续重

广东 6    1          5    2  
江苏 6    4         5    5
浙江 6    4          5    5

建了一个发货表

输入 省份如广东  选择快递类型 如 申通

怎么自动查询出来  5   2   填在表里

 

感谢各位大佬希望能指导下
--  作者：stuluo
--  发布时间：2018/4/6 11:42:00
--  
在线等   急.....
--  作者：有点甜
--  发布时间：2018/4/6 16:16:00
--  

DataColChanged事件

 

Dim lx As String = e.DataRow("类型")

If lx <> Nothing Then
   
    Dim fdr As DataRow = DataTables("表A").find("省份 = \'" & e.DataRow("省份") & "\'")
   
    If fdr IsNot Nothing Then
       
        msgbox(fdr(lx & "_首重"))
       
        msgbox(fdr(lx & "_续重"))
       
    End If
   
End If