Foxtable(狐表)用户栏目专家坐堂 → [求助]窗口如何关联显示相关内容


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

主题:[求助]窗口如何关联显示相关内容

帅哥哟,离线,有人找我吗?
ouyangfenghuan
  31楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:273 积分:2363 威望:0 精华:0 注册:2015/12/11 4:29:00
  发帖心情 Post By:2016/8/26 20:47:00 [只看该作者]

窗口输入产品名称后,怎么让图片控件显示产品资料表的图片?


图片点击可在新窗口打开查看此主题相关图片如下:2.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
Hyphen
  32楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:5015 积分:25363 威望:0 精华:0 注册:2015/8/18 9:21:00
  发帖心情 Post By:2016/8/27 8:45:00 [只看该作者]

控件绑定到图片列,设置好属性:http://www.foxtable.com/webhelp/scr/1894.htm



 回到顶部
帅哥哟,离线,有人找我吗?
ouyangfenghuan
  33楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:273 积分:2363 威望:0 精华:0 注册:2015/12/11 4:29:00
  发帖心情 Post By:2016/8/27 13:32:00 [只看该作者]

编辑中的是生产日报表的录入窗口,显示图片是绑定到产品资料表的图片列,
图片是用来校对产品名称是否正确,所以需要在录入窗口的产品名称textbox输入内容后显示图片
怎样写代码较好,另产品资料表是动态加载


 回到顶部
帅哥哟,离线,有人找我吗?
Hyphen
  34楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:5015 积分:25363 威望:0 精华:0 注册:2015/8/18 9:21:00
  发帖心情 Post By:2016/8/27 14:40:00 [只看该作者]

产品名称textbox,TextChanged事件,到产品资料表查找定位行,参考:http://www.foxtable.com/webhelp/scr/0552.htm

如果前台找不到到数据库找:http://www.foxtable.com/webhelp/scr/2911.htm

找到就加载,然后定位:http://www.foxtable.com/webhelp/scr/2276.htm

 回到顶部
帅哥哟,离线,有人找我吗?
ouyangfenghuan
  35楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:273 积分:2363 威望:0 精华:0 注册:2015/12/11 4:29:00
  发帖心情 Post By:2016/8/27 18:25:00 [只看该作者]

Dim tbcp As WinForm.TextBox = e.Form.Controls("TextBoxcp")

If tbcp IsNot Nothing Then
    Dim Filter2 As String
    Filter2 = "[产品名称] = '" &  tbcp.Text & "'"
    If  DataTables("产品资料表").Find(Filter2) Is Nothing Then '如果对应的产品名称没有加载过
        DataTables("产品资料表").AppendLoad(Filter2) '则追载此订单的产品名称
    End If
    Dim dr As DataRow
    dr = DataTables("产品资料表").Find("[产品名称] = '" &  tbcp.text & "'" )
    If dr IsNot Nothing Then
        Dim wz As Integer = Tables("产品资料表").FindRow(dr)
        If wz >= 0 Then
            Tables("产品资料表").Position = wz
        End If
    End If
Else
'????
End If

 

当无名称输入时

问号处怎么写,图片才能跟随显示空白?

 

 

 

 

 


 回到顶部
帅哥哟,离线,有人找我吗?
ouyangfenghuan
  36楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:273 积分:2363 威望:0 精华:0 注册:2015/12/11 4:29:00
  发帖心情 Post By:2016/8/27 19:36:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:3.png
图片点击可在新窗口打开查看
如何实现下面和右边的统计信息及下面3个表的相关详细信息显示

 回到顶部
帅哥哟,离线,有人找我吗?
ouyangfenghuan
  37楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:273 积分:2363 威望:0 精华:0 注册:2015/12/11 4:29:00
  发帖心情 Post By:2016/8/27 19:39:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:4.png
图片点击可在新窗口打开查看
原始生产日报表结构

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  38楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/8/28 12:31:00 [只看该作者]

Dim tbcp As WinForm.TextBox = e.Form.Controls("TextBoxcp")

If tbcp IsNot Nothing Then
    Dim Filter2 As String
    Filter2 = "[产品名称] = '" &  tbcp.Text & "'"
    If  DataTables("产品资料表").Find(Filter2) Is Nothing Then '如果对应的产品名称没有加载过
        DataTables("产品资料表").AppendLoad(Filter2) '则追载此订单的产品名称
    End If
    Dim dr As DataRow
    dr = DataTables("产品资料表").Find("[产品名称] = '" &  tbcp.text & "'" )
    If dr IsNot Nothing Then
        Tables("产品资料表").Filter = ""
        Dim wz As Integer = Tables("产品资料表").FindRow(dr)
        If wz >= 0 Then
            Tables("产品资料表").Position = wz
        End If
    End If
Else
    Tables("产品资料表").Filter = "1=2"
End If


 回到顶部
帅哥哟,离线,有人找我吗?
ouyangfenghuan
  39楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:273 积分:2363 威望:0 精华:0 注册:2015/12/11 4:29:00
  发帖心情 Post By:2016/9/1 16:17:00 [只看该作者]

.NET Framework 版本:2.0.50727.3655
Foxtable 版本:2016.7.29.1
错误所在事件:窗口,生产日报表录入,ComboBoxJT,TextChanged
详细错误信息:
未将对象引用设置到对象的实例。

 

Dim CBXM As WinForm.ComboBox = e.Form.Controls("ComboBoxXM")
Dim t3 As Table = Tables("生产日报表录入_TableRY")
If CBXM IsNot Nothing Then
    t3.Filter = "姓名 = '" & CBXM.TEXT & "' And 日期 = # " & t3 .Current("日期") & "#"
Else
    t3.Filter = "False"
End If

 

 

 

不知错在哪里?求指点

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:订单生产test.foxdb


 回到顶部
帅哥哟,离线,有人找我吗?
ouyangfenghuan
  40楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:273 积分:2363 威望:0 精华:0 注册:2015/12/11 4:29:00
  发帖心情 Post By:2016/9/1 16:20:00 [只看该作者]

另36楼的窗口中三个表的统计结果如何填到右边的文本框里

 回到顶部
总数 52 上一页 1 2 3 4 5 6 下一页