以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  截取字段问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=49026)
--  作者：远航
--  发布时间：2014/4/10 20:37:00
--  截取字段问题
下例中怎样在窗口1上显示截取的字符
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:截取.rar
--  作者：lsy
--  发布时间：2014/4/10 20:53:00
--  
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:截取.rar
--  作者：远航
--  发布时间：2014/4/10 21:21:00
--  
如果替换成条码应该怎样做呢
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:截取1.rar
--  作者：有点甜
--  发布时间：2014/4/10 21:38:00
--  

 编写currentchanged事件

 

If e.Table.Current IsNot Nothing AndAlso Forms("窗口1").Opened Then
    Forms("窗口1").Controls("BarCode1").HumanReadableText = Right(Tables("表A").Current("第三列"),4)
End If

 

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

 
--  作者：远航
--  发布时间：2014/4/10 21:54:00
--  
用以上的办法 不能改变条码的内容 显示的条码始终是123456的条码
--  作者：有点甜
--  发布时间：2014/4/10 22:18:00
--  

这样写

 

If e.Table.Current IsNot Nothing AndAlso Forms("窗口1").Opened Then

    Forms("窗口1").Controls("BarCode1").Code= Right(Tables("表A").Current("第三列"),4)
    \'Forms("窗口1").Controls("BarCode1").HumanReadableText = Right(Tables("表A").Current("第三列"),4)
End If
--  作者：远航
--  发布时间：2014/4/10 22:24:00
--  
谢谢