以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  控件值根据另一个控件值在指定表中显示出来  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=137475)
--  作者：有点蓝
--  发布时间：2019/7/7 20:19:00
--  
dim filter as string = ......
dim dr as datarow = datatables("产品基础数据").find(filter)
if dr isnot nothing then
    e.form.controls("材料描述").text = dr("材料描述")
end if
--  作者：有点蓝
--  发布时间：2019/7/8 9:03:00
--  
Dim filter As String = "成品编码 = \'" & e.sender.text & "\'"
--  作者：有点蓝
--  发布时间：2019/7/8 9:45:00
--  
放到成品编码 控件的 textchanged 这个事件
--  作者：有点蓝
--  发布时间：2019/7/8 10:36:00
--  
材料描述这个控件的事件有没有什么代码
--  作者：有点蓝
--  发布时间：2019/7/8 11:03:00
--  
检查一下窗口其它事件，肯定有其它事件影响了。或者看看表datacolchanged事件
--  作者：有点蓝
--  发布时间：2019/7/8 15:13:00
--  
textchanged代码
方法一

Dim filter As String =  "成品编码 = \'" & e.sender.text & "\'"
Dim dr As DataRow = DataTables("期初数量").find(filter)
If dr IsNot Nothing Then
    Dim txt As WinForm.TextBox = e.Form.Controls("材料描述1")
    txt.value = dr("成品描述")
    txt.WriteValue
End If

方法二
Dim filter As String =  "成品编码 = \'" & e.sender.text & "\'"
Dim dr As DataRow = DataTables("期初数量").find(filter)
If dr IsNot Nothing Then
    Dim r As Row = Tables("采购申请明细_采购申请明细").Current
    If r IsNot Nothing Then
        r("材料描述") = dr("成品描述")
    End If
End If