主题：[求助]图形化物料清单listview

如图，我打开一个父项后，需要拖拽其他的子料到物料清单下的这个表，可以做到嘛？

或者简单意思就是，拖拽产生一个复制该拖拽对象的编号到我需要的表里，能做的到嘛？

先谢谢各位大神了

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

点击浏览该文件:开发物料进程管理_201803232019.zip

此主题相关图片如下：图形化物料清单.png.gif

这个做不到。建议做个按钮，勾选后点击按钮进行添加

Dim ddr As Row = Tables("物料详细_Table2").AddNew()
Dim lvw2 As WinForm.ListView = Forms("主窗口").Controls("ListView1")
Dim vr As WinForm.ListViewRow = lvw2.Current '获取ListView的当前行
If vr Is Nothing Then '如果不存在当前行,也就是内有选定任何一行
    Return
End If
ddr("子键") =  vr("编号")
ddr("父键") = Tables("物料").Current("编号")

 

双击打开窗口后指定父键，在LISTVIEW的行选择子项，直接用一个按钮生成

回复3楼，如果还有其他问题，请详细说明。

转了点弯，做了一个自己认为可以的，例子是毛胚，分享一下哈 另外请问怎么把大图片下面的标题做成两行的？比如第一行DR"编号，第二行DR('描述')，相当于把我这个的文字放在图片的下面，搞了好久就只能显示一行

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

点击浏览该文件:拖拽图形化bom_201803262228.zip

回复5楼这种情况的话，你就需要自己画listview里面的内容了，参考这个例子

 

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

 

画里面内容，参考这些知识点

 

http://www.foxtable.com/webhelp/scr/1482.htm

 

回复5楼，如果好换行，最简单，就是这样写，如

 

Dim s1 As string = "123"

Dim s2 As String = "abc"

 

msgbox(s1 & vbcrlf & s2)