主题：listview实现自动输入功能，运行出错？请问

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:listview下拉窗口自动输入问题.zip

此主题相关图片如下：窗口1.jpg


此主题相关图片如下：出现问题.png

点击下拉窗口后，再双击下拉窗口里的LISTVIEW的图标，想实现自动输入，出错了，

 

此主题相关图片如下：出现问题.png

这个就是出错的提示，估计是我的窗口加载表的时候是 TABLE  不是DATATABLE ，想实现自动输入。

 

此主题相关图片如下：111.jpg

 

是不是事件中的代码出错了。

能否帮忙修改下代码？请老师指点下。

此主题相关图片如下：222.jpg

代码我改成row还是出错？

 

Dim lvw As WinForm.ListView = e.Sender
Dim tr As Row =  lvw.Current.tag
Dim dr As Row = e.Form.DropTable.Current
tr("货品名称") = dr("货品名称")
tr("货品品牌") = dr("货品品牌")
e.Form.DropDownBox.Value = dr("库存统计_Table1")
e.Form.DropDownBox.CloseDropdown()

请问如果想实现多列自动输入，代码如何修改？请帮忙指点下。

我增加了表名了，但是还是出错？

 

Dim lvw As WinForm.ListView = e.Sender
Dim tr As Row =  lvw.Current.tag
Dim dr As Row = Tables("库存统计_Table1").Current
tr("货品名称") = dr("货品名称")
tr("货品品牌") = dr("货品品牌")
e.Form.DropDownBox.Value = dr("库存统计_Table1")
e.Form.DropDownBox.CloseDropdown()

此主题相关图片如下：333.jpg

请问我已经更改了列的名字但是，没有形成一次输入多列内容？

没有反应（如图所示） 双击“索尼”图标后没有自动输入.

帮忙看下？

 

Dim lvw As WinForm.ListView = e.Sender
Dim tr As Row =  lvw.Current.tag
Dim dr As Row = Tables("库存统计_Table1").Current
tr("货品名称") = dr("货品名称")
tr("货品品牌") = dr("货品品牌")
e.Form.DropDownBox.Value = dr("货品名称")
e.Form.DropDownBox.CloseDropdown()