专家坐堂-用控件控制调用Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  用控件控制调用  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=127245)

--  作者：yangwenghd
--  发布时间：2018/11/9 10:48:00
--  用控件控制调用

If e.Form.Controls("ComboBox1").Text = "方式一" Then
If e.DataCol.Name = "产品编号" Then
Dim dr As DataRow
dr = DataTables("库存").Find("属性_产品编号= \'" & e.DataRow("产品编号") & "\'" )
If dr IsNot Nothing \'如果找到, 则设置各列内容
e.DataRow("产品信息_大类别")= dr("属性_大类别")
End If
End If \'得到产品信息
End If

能帮忙看看这个吗感谢感谢

--  作者：y2287958
--  发布时间：2018/11/9 11:10:00
--

If e.Form.Controls("ComboBox1").Text = "方式一" Then
Dim r As Row = CurrentTable.Current
If r IsNot Nothing
Dim dr As DataRow
dr = DataTables("库存").Find("属性_产品编号= \'" & r("产品编号") & "\'" )
If dr IsNot Nothing \'如果找到, 则设置各列内容
r("产品信息_大类别")= dr("属性_大类别")
End If
End If \'得到产品信息
End If

--  作者：有点甜
--  发布时间：2018/11/9 11:21:00
--

看2楼关键代码

Dim r As Row = Tables("表A").Current

If r IsNot Nothing

--  作者：yangwenghd
--  发布时间：2018/11/9 11:49:00
--
感谢感谢能再请教一下老师吗？感谢
If e.Form.Controls("ComboBox1").Text = "方式一" Then
    Dim r As Row = CurrentTable.Current
    If r IsNot Nothing
        Dim dr As DataRow
        dr = DataTables("运费录入库").Find("国家英= \'"  & r("国家信息_国家英语") & "\'" )
        If dr IsNot Nothing \'如果找到, 则设置各列内容
            r("方式一_物流数据_价格")= dr("价格")
            r("方式一_物流数据_挂号费")= dr("挂号费")
        End If
    End If
End If  \'得到产品信息  可以是点击后一整列都执行吗？不是只有选中的行，感谢感谢

--  作者：有点甜
--  发布时间：2018/11/9 11:58:00
--
If e.Form.Controls("ComboBox1").Text = "方式一" Then
    For Each r As Row In Tables("表A").Rows
        Dim dr As DataRow
        dr = DataTables("运费录入库").Find("国家英= \'" & r("国家信息_国家英语") & "\'" )
        If dr IsNot Nothing \'如果找到, 则设置各列内容
            r("方式一_物流数据_价格")= dr("价格")
            r("方式一_物流数据_挂号费")= dr("挂号费")
        End If
    Next
End If

--  作者：yangwenghd
--  发布时间：2018/11/9 12:04:00
--
看懂了，老师，谢谢
[此贴子已经被作者于2018/11/9 12:05:06编辑过]