控件值根据另一个控件值在指定表中显示出来 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

主题：控件值根据另一个控件值在指定表中显示出来