Foxtable(狐表)用户栏目专家坐堂 → 求助:利用listview做的下拉窗体,在表中录入没有问题,在窗体中用下拉控件定义不能正常使用


  共有3587人关注过本帖平板打印复制链接

主题:求助:利用listview做的下拉窗体,在表中录入没有问题,在窗体中用下拉控件定义不能正常使用

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


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
求助:利用listview做的下拉窗体,在表中录入没有问题,在窗体中用下拉控件定义不能正常使用  发帖心情 Post By:2014/7/13 14:43:00 [只看该作者]

求助:利用listview做的下拉窗体,在表中录入没有问题,在窗体中用下拉控件定义不能正常使用

求助修正如下代码 让其下拉窗体在表录入和窗体中控件录入都可以进行赋值操作
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:led报价系统.table



下拉窗体双击代码如下:

Dim lvw As WinForm.ListView = e.Sender
Dim lv As WinForm.ListViewRow = lvw.Current
If lv Is Nothing Then
    Return
End If

If e.Form.DropTable IsNot Nothing Then '如果下拉窗口是从表中打开
    Dim tr As Row = e.Form.DropTable.Current
    tr("LED规格") = lv("LED规格")
    tr("LED长度") = lv("LED单块长度")
    tr("LED宽度") = lv("LED单块宽度")
    tr("LED灯间密度") = lv("LED灯间密度")
    tr("LED颜色") = lv("颜色类别")
    tr("LED单价") = lv("LED单价")
    e.Form.DropDownBox.Value = lv("LED规格")
End If
e.Form.DropDownBox.CloseDropdown()

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

[此贴子已经被作者于2014-7-13 14:43:30编辑过]

 回到顶部