Foxtable(狐表)用户栏目专家坐堂 → 控件值根据另一个控件值在指定表中显示出来


  共有1980人关注过本帖树形打印复制链接

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

帅哥,在线噢!
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106688 积分:542629 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106688 积分:542629 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/7/8 9:03:00 [显示全部帖子]

Dim filter As String = "成品编码 = '" & e.sender.text & "'"

 回到顶部
帅哥,在线噢!
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106688 积分:542629 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/7/8 9:45:00 [显示全部帖子]

放到成品编码 控件的 textchanged 这个事件

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106688 积分:542629 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/7/8 10:36:00 [显示全部帖子]

材料描述这个控件的事件有没有什么代码

 回到顶部
帅哥,在线噢!
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106688 积分:542629 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/7/8 11:03:00 [显示全部帖子]

检查一下窗口其它事件,肯定有其它事件影响了。或者看看表datacolchanged事件

 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106688 积分:542629 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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


 回到顶部