Foxtable(狐表) → 用户栏目 → 专家坐堂 → 语法解法


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

主题：语法解法
帅哥哟，离线，有人找我吗？
wtfwsk05
 小大  41楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：398 积分：2369 威望：0 精华：0 注册：2017/3/19 15:30:00 		  发帖心情 Post By：2018/9/11 22:42:00 [只看该作者]

请问下“商品编号”的SelectedIndexChanged事件代码：
Dim mc As WinForm.TextBox = e.Form.Controls("mc")   '商品名称
Dim cl As WinForm.TextBox = e.Form.Controls("cl")   '商品库存
Dim bh1 As WinForm.ComboBox = e.Form.Controls("bh")   '商品编号
Dim dr1 As DataRow = bh1.SelectedItem   '返回控件的列表项目对应的行
mc.text = dr1("商品名称")
为什么出现下述问题

图片点击可在新窗口打开查看此主题相关图片如下：商品编号.png
图片点击可在新窗口打开查看
 回到顶部
帅哥，在线噢！
有点蓝
 小大  42楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105939 积分：538764 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/9/11 22:44:00 [只看该作者]

组合框要绑定表做下拉的，SelectedItem 才会有值，如果是使用ComboList 设置的是不会有值的

 回到顶部
帅哥哟，离线，有人找我吗？
wtfwsk05
 小大  43楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：398 积分：2369 威望：0 精华：0 注册：2017/3/19 15:30:00 		  发帖心情 Post By：2018/9/11 22:59:00 [只看该作者]

在商编号控件中列出（编号/名称/型号/规格），并自动将名称/型号/规格输入对应控件
1、窗口.AfterLoad
'-------------指定自定义列表项目的(显示列/取值列/数据表)---
Dim cmb As WinForm.ComboBox = e.Form.Controls("bh")  '定义商品编号控件为cmb1
cmb1.DisplayMember = "商品编号"   '显示列
cmb1.ValueMember = "商品编号"     '取值列
cmb1.DataSource = "设置"          '数据表
2、客户编号：ListItemFormat格式化列表项目时执行
e.Value = e.ListItem("商品编号") & "|" & e.ListItem("商品名称")
3、商品编号：SelectedIndexChanged 选择不同列表项目后执行
Dim mc As WinForm.TextBox = e.Form.Controls("mc")   '商品名称
Dim cl As WinForm.TextBox = e.Form.Controls("cl")   '商品库存
Dim bh1 As WinForm.ComboBox = e.Form.Controls("bh")   '商品编号
Dim dr1 As DataRow = DataTables("设置").SQLFind("商品编号 = '" & bh1.value & "'")
mc.value = dr1("商品名称")
这个是完整的代码，在有这句代码mc.value = dr1("商品名称")时，提示上述错误，请问老师应怎么修改上述代码
 回到顶部
帅哥，在线噢！
有点蓝
 小大  44楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105939 积分：538764 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/9/11 23:07:00 [只看该作者]

Dim mc As WinForm.TextBox = e.Form.Controls("mc")   '商品名称
Dim cl As WinForm.TextBox = e.Form.Controls("cl")   '商品库存
Dim dr1 As DataRow = DataTables("设置").SQLFind("商品编号 = '" & e.sender.text & "'")
If dr1 IsNot Nothing
    mc.value = dr1("商品名称")
End If
 回到顶部
帅哥哟，离线，有人找我吗？
wtfwsk05
 小大  45楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：398 积分：2369 威望：0 精华：0 注册：2017/3/19 15:30:00 		  发帖心情 Post By：2018/9/11 23:09:00 [只看该作者]

其他代码 还要不，上述代码维护在那个事件中

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  46楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/9/12 9:48:00 [只看该作者]

SelectedIndexChanged 事件写代码

 

Dim mc As WinForm.TextBox = e.Form.Controls("mc")   '商品名称
Dim cl As WinForm.TextBox = e.Form.Controls("cl")   '商品库存
Dim dr1 As DataRow = DataTables("设置").SQLFind("商品编号 = '" & e.sender.text & "'")
If dr1 IsNot Nothing
    mc.value = dr1("商品名称")
End If
 
不会做上传实例测试
 回到顶部
帅哥哟，离线，有人找我吗？
wtfwsk05
 小大  47楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：398 积分：2369 威望：0 精华：0 注册：2017/3/19 15:30:00 		  发帖心情 Post By：2018/9/12 22:48:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：主要.png
图片点击可在新窗口打开查看
 请问下在设计主菜单栏中的CurrentTableChanged选择不同表后执行设置下述代码有什么作用
Vars("SysUpdatePrintInfo") = True
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  48楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/9/12 22:55:00 [只看该作者]

以下是引用wtfwsk05在2018/9/12 22:48:00的发言：

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

 请问下在设计主菜单栏中的CurrentTableChanged选择不同表后执行设置下述代码有什么作用
Vars("SysUpdatePrintInfo") = True

 

只是做一个标记，在别的事件那里，会用到变量【SysUpdatePrintInfo】。

 
 回到顶部
帅哥哟，离线，有人找我吗？
wtfwsk05
 小大  49楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：398 积分：2369 威望：0 精华：0 注册：2017/3/19 15:30:00 		  发帖心情 Post By：2018/9/12 23:24:00 [只看该作者]

MouseEnter   鼠标进入组件区域时执行
mouse_event(&H2 Or &H4,0,0,0,0)
请问下这个代码是什么意思，有什么作用，又怎么用
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  50楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/9/12 23:30:00 [只看该作者]

以下是引用wtfwsk05在2018/9/12 23:24:00的发言：
MouseEnter   鼠标进入组件区域时执行
mouse_event(&H2 Or &H4,0,0,0,0)
请问下这个代码是什么意思，有什么作用，又怎么用

 

模拟点击鼠标的意思

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=74557&skin=0

 
 回到顶部
总数 316 上一页 1 2 3 4 5 6 7 8 9 10 下一页 ..32
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 4 次数据查询