Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共10 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:图片列自动增加可以实现吗

1楼
chenwuwenyu 发表于:2009/7/29 20:28:00
定义一列为图片列,另一列为数据列
我可否在数据列中输入502,然后自动在图片列中增加名称分别为5.jpg,0.jpg,2.jpg这三个图片呢
相对应名称的图片预先保存在imges文件下

不知道有没有表述清楚,唉,怎么表达能力退化成这样了

谢谢大家了
2楼
mr725 发表于:2009/7/29 20:53:00

帮你顶了。。。。。。

3楼
yangming 发表于:2009/7/29 21:10:00
这要看你的文件是什么样的,还有就是数据列输入的是否有规律,比如,都是三位数,而且每个图片都是一位数,当然,我想是不太可能的全是一位数的,建议还是做一个文件上传比较好
4楼
狐狸爸爸 发表于:2009/7/29 21:29:00
这个当然是可以的,只要有规律就行
5楼
chenwuwenyu 发表于:2009/7/30 19:09:00
恩,有规律的,先大体说一下吧
我主要是数据列输入8位的数字,目的是想把这8位数字转换为图片形式的
我的想法是先保存了每个数字的图片在imges文件夹下,并且图片就用这个数字命名,如1.jpg,2.jpg……
如我输入了50211790,要求窗口中或者报表中能出现图片形式的50211790
文件我过会做一个上传
6楼
czy 发表于:2009/7/30 20:29:00

DataColChanged事件代码

Dim s As String
Dim i As Integer
Dim dr As DataRow = e.DataRow
If e.DataCol.Name = "数据列" Then
    If e.DataRow.IsNull("数据列") Then
        dr("图片列") = Nothing
    Else
        For i = 0 to Len(dr("数据列"))-1
            s =  s & dr("数据列").SubString(i,1) & ".jpg" & Chr(13) & Chr(10)
        Next
        dr("图片列") = s
    End If
End If

7楼
chenwuwenyu 发表于:2009/7/30 21:34:00
dr("数据列").SubString(i,1) & ".jpg" & Chr(13) & Chr(10)
这句可以解释一下吗?& Chr(13) & Chr(10),我这里好像不执行
老大辛苦解释一下
8楼
czy 发表于:2009/7/30 23:12:00
数据列的每一个字符加上图片的后辍,再加回车符和换行符。
不会不行吧,看看下面的文件。

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.rar

9楼
chenwuwenyu 发表于:2009/7/31 7:11:00

可以实现了,呵呵,找不到原因
我新建了一个项目就可以实现了
谢谢了

另,貌似图片必须在项目文件夹下,在imges下图片就不显示,是这样吗

[此贴子已经被作者于2009-7-31 7:22:15编辑过]
10楼
czy 发表于:2009/7/31 11:14:00
肯定可以的。

Dim s As String
Dim i As Integer
Dim dr As DataRow = e.DataRow
If e.DataCol.Name = "数据列" Then
    If e.DataRow.IsNull("数据列") Then
        dr("图片列") = Nothing
    Else
        For i = 0 to Len(dr("数据列"))-1
            s =  s & "imges\" & dr("数据列").SubString(i,1) & ".BMP" & Chr(13) & Chr(10)
        Next
        dr("图片列") = s
    End If
End If
共10 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .03906 s, 3 queries.