以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助：利用listview做的下拉窗体，在表中录入没有问题，在窗体中用下拉控件定义不能正常使用  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=53684)
--  作者：李孝春
--  发布时间：2014/7/13 14:43:00
--  求助：利用listview做的下拉窗体，在表中录入没有问题，在窗体中用下拉控件定义不能正常使用
求助：利用listview做的下拉窗体，在表中录入没有问题，在窗体中用下拉控件定义不能正常使用

求助修正如下代码 让其下拉窗体在表录入和窗体中控件录入都可以进行赋值操作
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:ｌｅｄ报价系统.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编辑过]
--  作者：有点甜
--  发布时间：2014/7/13 14:46:00
--  
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规格")
    tr("LED规格") = lv("LED规格")
End If
e.Form.DropDownBox.CloseDropdown()
--  作者：李孝春
--  发布时间：2014/7/13 14:55:00
--  回复：（有点甜）Dim lvw As WinForm.ListView = e.Se...
有点甜老师 在控件中选择时候 还是不能使用哦

在表中打开下拉窗体没问题

现在的问题是 我想在下拉控件中打开窗体后双击对应数据 然后赋值到下拉控件中 并且赋值对应数据
--  作者：有点甜
--  发布时间：2014/7/13 15:05:00
--  

 代码

 

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.DropDownBox IsNot Nothing Then
    Dim tr As Row = Tables("LED订单").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规格")
    tr("LED规格") = lv("LED规格")
Else 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()