Foxtable(狐表)用户栏目专家坐堂 → [求助]如何实现这种功能


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

主题:[求助]如何实现这种功能

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


加好友 发短信
等级:一尾狐 帖子:475 积分:3548 威望:0 精华:0 注册:2012/8/30 10:58:00
[求助]如何实现这种功能  发帖心情 Post By:2013/7/17 0:22:00 [只看该作者]

在窗口里,如图,
图片点击可在新窗口打开查看此主题相关图片如下:3.jpg
图片点击可在新窗口打开查看
如何实现,在商品代码中填入商品编号,右边的商品信息中相应的变化,采用的是lable显示商品信息,这样比采用数据表样式好看,请高手指教

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


加好友 发短信
等级:一尾狐 帖子:431 积分:3214 威望:0 精华:2 注册:2011/9/10 21:35:00
  发帖心情 Post By:2013/7/17 1:15:00 [只看该作者]

行事件里加个find代码啊,然后控件的值等于find的

 

 


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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/7/17 9:09:00 [只看该作者]

编号文本框的textchanged事件中 利用FIND找到行然后为右边的LABEl赋值即可.

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


加好友 发短信
等级:一尾狐 帖子:475 积分:3548 威望:0 精华:0 注册:2012/8/30 10:58:00
  发帖心情 Post By:2013/7/17 9:40:00 [只看该作者]

find 用法我不是太会用,看帮助中的例子,全是静态的例子,我现在是在窗口中给商品编号赋值,是属于动态的,如何使用?请高手指点,谢谢

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/7/17 9:48:00 [只看该作者]


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


加好友 发短信
等级:一尾狐 帖子:475 积分:3548 威望:0 精华:0 注册:2012/8/30 10:58:00
  发帖心情 Post By:2013/7/27 17:57:00 [只看该作者]

初次学编程,基础太差,哪位高手能写一段代码参考一下,谢谢各位大大了


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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/7/27 17:58:00 [只看该作者]

上个例子,三下五除二就能给你完成.

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


加好友 发短信
等级:三尾狐 帖子:619 积分:3656 威望:0 精华:1 注册:2012/6/13 22:00:00
  发帖心情 Post By:2013/7/27 21:59:00 [只看该作者]

        Dim dr As DataRow
       
'否则在产品表查找同名的产品行,将找到的行赋值给变量dr
        dr = DataTables("产品信息").Find("[编号] = ' " & E.SENDER.TXTE &" '")

        If
dr IsNot Nothing Then '如果找到了同名的产品行,也就是dr不是Nothing
            label1.text = dr("单价")

        End
If
类似这样

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


加好友 发短信
等级:一尾狐 帖子:431 积分:3214 威望:0 精华:2 注册:2011/9/10 21:35:00
  发帖心情 Post By:2013/7/27 22:10:00 [只看该作者]

以下是引用夕然在2013-7-27 21:59:00的发言:
        Dim dr As DataRow
       
'否则在产品表查找同名的产品行,将找到的行赋值给变量dr
        dr = DataTables("产品信息").Find("[编号] = ' " & E.SENDER.TXTE &" '")

        If
dr IsNot Nothing Then '如果找到了同名的产品行,也就是dr不是Nothing
            label1.text = dr("单价")

        End
If
类似这样

是啊,这个就是动态的。

帮助例子里全是动态的,静态的反而没有。


 回到顶部