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


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

主题:语法解法

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


加好友 发短信
等级:童狐 帖子:282 积分:1760 威望: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


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

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

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


加好友 发短信
等级:童狐 帖子:282 积分:1760 威望: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


加好友 发短信
等级:超级版主 帖子:23372 积分:119198 威望:0 精华:7 注册: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


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

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

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


加好友 发短信
等级:版主 帖子:72502 积分:363620 威望: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


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


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

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

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


加好友 发短信
等级:版主 帖子:72502 积分:363620 威望: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


加好友 发短信
等级:童狐 帖子:282 积分:1760 威望: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


加好友 发短信
等级:版主 帖子:72502 积分:363620 威望: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

 


 回到顶部
总数 206 上一页 1 2 3 4 5 6 7 8 9 10 下一页 ..21