以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  求助  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=46677)

--  作者:永不言弃
--  发布时间:2014/2/26 23:13:00
--  求助


图片点击可在新窗口打开查看此主题相关图片如下:nupa24g}nrmdj%s3zxtjao.jpg
图片点击可在新窗口打开查看
如上图,用LISTview 显示的图片,怎么才能光显示后面最后一个-5的全部图片,或者光显示-7的所有图片。我做的都是全部显示。

 

高手能说详细点吗?基础不好。谢谢了。


--  作者:永不言弃
--  发布时间:2014/2/27 0:31:00
--  

在线等了两小时,怎么没人给回复的?郁闷,急啊,在线等.


--  作者:狐狸爸爸
--  发布时间:2014/2/27 8:16:00
--  

这么晚,没有人回复很正常的,另外,至少你得贴出你的代码,别人才知道怎么帮你改。

 

 

 


--  作者:永不言弃
--  发布时间:2014/2/27 11:59:00
--  

Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
lvw.StopRedraw() \'暂停绘制
lvw.Rows.Clear() \'清除原来的行
lvw.Images.Clear() \'清除原来的图片
lvw.View = ViewMode.LargeIcon \'显示模式为大图标
lvw.Images.LargeSize = New Size(130,150) \'定义大图标尺寸
For Each dr As DataRow In DataTables("配方信息表").DataRows    \'从数据表中提取数据
    Dim Key As String = dr("图片文件名")     \'获取此花型信息的照片文件
    lvw.Images.AddLargeImage(Key, Key) \'添加照片,直接用文件名作为图片键值
    Dim vr As  WinForm.ListViewRow =  lvw.Rows.Add() \'增加一行
    vr.Text = dr("花号")   \'设置标题
      vr.ImageKey = Key \'设置图片键值
Next
lvw.ResumeRedraw() \'恢复绘制lvw.ResumeRedraw() \'恢复绘制

 

 

我都是帮助那里粘过来的.不知道怎么改才能光显示-后面的花型.帮帮忙啊.


--  作者:狐狸爸爸
--  发布时间:2014/2/27 12:09:00
--  

For Each dr As DataRow In DataTables("配方信息表").DataRows   

 

改为:

 

 

For Each dr As DataRow In DataTables("配方信息表").Select("花号 Like \'*-7\'")

 

参考:

 

http://www.foxtable.com/help/topics/0400.htm

[此贴子已经被作者于2014-2-27 12:09:06编辑过]

--  作者:永不言弃
--  发布时间:2014/2/27 14:02:00
--  
谢谢狐爸.看来是基础没掌握好.假如要设置*-5,比5大的所有数据,怎么做啊.我自己都问的不好意思了.