Question

VB 提取特定字符串

在做VB与ACCESS数据库的连接 有这么个情况：数据表中有“工作时间”这一字段，内容为1月，2月，3月。。。等等。在VB界面输入信息时我采用的是一个text控件用于输入数字加另一个label控件固定caption＝月 来组成一个字符串存进数据库，代码为 rs!工作时间 = Text1.Text & Label1.Caption 现在我需要从数据库中读出数据并写入text控件 但如果用：Text1.Text = Frm_BuMen.Adodc1.Recordset.Fields("工作时间") 这样的话 text中显示的是“1月”、“2月”之类 外加Label控件的caption VB界面上就多了一个“月”字。 我希望在实现如上功能的时候 txet控件中只显示数字 屏蔽掉那个“月”字 希望高手指点。

Answer 1

replace(Frm_BuMen.Adodc1.Recordset.Fields("工作时间") ,"月"，"")
或者
left(Frm_BuMen.Adodc1.Recordset.Fields("工作时间"),len(Frm_BuMen.Adodc1.Recordset.Fields("工作时间"))-1)

Answer 2

用copy函数把字符串的后两位去掉就可以了