Foxtable(狐表)用户栏目专家坐堂 → 数据格式化问题


  共有2895人关注过本帖树形打印复制链接

主题:数据格式化问题

帅哥哟,离线,有人找我吗?
鲁吉
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:711 积分:5356 威望:0 精华:0 注册:2013/5/27 9:48:00
数据格式化问题  发帖心情 Post By:2016/7/11 13:57:00 [只看该作者]

身份证读卡器读取的日期格式为:YYYYMMDD(如20160711),怎么让它直接变成2016年7月11日?没有存文本文档。

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/7/11 14:14:00 [只看该作者]

dim str as string = "20160711"

Dim d As Date = new Date(str.substring(0,4), str.SubString(4,2), str.SubString(6,2))

msgbox(d)


 回到顶部
帅哥哟,离线,有人找我吗?
鲁吉
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:711 积分:5356 威望:0 精华:0 注册:2013/5/27 9:48:00
  发帖心情 Post By:2016/7/11 17:15:00 [只看该作者]

 Dim s As String =(System.Text.ASCIIEncoding.Unicode.GetString(pucCHMsg))
    If s.Length > 0 Then
        '分段截取字符串并赋给窗口控件
        Dim r As Row = Tables("农民工实名制信息表").AddNew
        r("姓名") = s.SubString(0,14).Replace(".","-")
        r("性别") = s.SubString(15,1).Replace(".","-")
        r("民族") = s.SubString(16,2).Replace(".","-")
        r("出生日期") =  s.SubString(18,8).Replace(".","-")
        r("家庭住址") = s.SubString(26,35).Replace(".","-")
        r("身份证号") = s.SubString(61,18).Replace(".","-")
        r("发证机关") = s.SubString(79,14).Replace(".","-")
        r("签发日期") = s.SubString(94,8).Replace(".","-")
        r("有效日期") = s.SubString(102,8).Replace(".","-")
end if

yi  就是这段代码,除了日项外都正常了,日期一直是:20160711格式,不知道怎么写了。

[此贴子已经被作者于2016/7/11 17:22:54编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
鲁吉
  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:711 积分:5356 威望:0 精华:0 注册:2013/5/27 9:48:00
  发帖心情 Post By:2016/7/11 18:35:00 [只看该作者]

这部分解决了,就差照片了

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/7/12 0:35:00 [只看该作者]

读卡后,在项目里会有一个 pic.wlt 的文件吧?然后直接解码就行了啊

 

全局代码

 

<DllImport("WltRS.dll", CallingConvention := CallingConvention.StdCall)> _
Private Shared Function GetBmp(pucPHMsg As String, intf As Integer) As Integer
End Function

 

调用

 

GetBmp(ApplicationPath & "zp.wlt", 2)

 

然后就会生成 zp.bmp


 回到顶部
帅哥哟,离线,有人找我吗?
鲁吉
  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:711 积分:5356 威望:0 精华:0 注册:2013/5/27 9:48:00
  发帖心情 Post By:2016/7/13 17:44:00 [只看该作者]

解码也实现了(zp.bmp),但不能把照片文件加入到数据表,在表事件的DrawCell中加入如下代码:

If e.Col.Name = "照片" Then
    Dim s As String = "E:\baidudownload\农民要综合管理系统\images\zp.bmp"
    e.Graphics.DrawImage(getImage(s),e.X,e.Y,e.Width,e.Height)
End If

 

出现运行错误提示:

 

.NET Framework 版本:2.0.50727.5485
Foxtable 版本:2016.6.26.1
错误所在事件:表,农民工实名制信息表,DrawCell
详细错误信息:
调用的目标发生了异常。
值不能为空。
参数名: image

在帮助中看了很长时间也没有找到解决办法,请指教!!


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/7/13 18:09:00 [只看该作者]

 读取到数据后,把图片拷贝到某目录,即可。

 

FileSys.CopyFile(ApplicationPath & "zp.bmp", ProjectPath & "\Attachments\" & r("身份证号码") & ".bmp",True) '照片复制到Attachments目录
r("照片") = r("身份证号码") & ".bmp"


 回到顶部
帅哥哟,离线,有人找我吗?
鲁吉
  8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:711 积分:5356 威望:0 精华:0 注册:2013/5/27 9:48:00
  发帖心情 Post By:2016/7/13 18:23:00 [只看该作者]

这个做了,但表照片列中没有照片文件

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/7/13 18:31:00 [只看该作者]

 照片列,改成图片列。

 

 只要执行了7楼的代码,就肯定能拷贝文件并显示文件啊。


 回到顶部
帅哥哟,离线,有人找我吗?
鲁吉
  10楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:711 积分:5356 威望:0 精华:0 注册:2013/5/27 9:48:00
  发帖心情 Post By:2016/7/13 23:52:00 [只看该作者]

5楼的代码是错的

 回到顶部
总数 14 1 2 下一页