Office中国论坛/Access中国论坛

标题: 关于字符合并？ [打印本页]

作者: 小小鸟 时间: 2009-12-17 13:42
标题: 关于字符合并？
我用了下面的代码：
"F"+Str([窗体1].[form]![文本2]+1)
做了个流水文件号，得到F 11，F 12，F 13，但是F和数字之间有空格，请问怎样才能将其去掉，盼告知，谢谢。

[文本2]内容为数值

作者: 小小鸟 时间: 2009-12-17 15:16
轻轻的顶一下。

作者: fnsmydyang 时间: 2009-12-17 21:31
用这三个函数：
LTrim，RTrim，及 Trim 函数示例
本示例使用 LTrim 及 RTrim 函数将某字符串的开头及结尾的空格全部去除。事实上只使用 Trim 函数也可以做到将两头空格全部去除。

Dim MyString, TrimString
MyString = "  <-Trim->  " ' 设置字符串初值。
TrimString = LTrim(MyString) ' TrimString = "<-Trim->  "。
TrimString = RTrim(MyString) ' TrimString = "  <-Trim->"。
TrimString = LTrim(RTrim(MyString)) ' TrimString = "<-Trim->"。
' 只使用 Trim 函数也同样将两头空格去除。
TrimString = Trim(MyString) ' TrimString = "<-Trim->"。
用在转换字符之前
"F"+Str(Trim([窗体1].[form]![文本2]))

作者: wufeng980114 时间: 2009-12-26 20:50
学习了，受益匪浅

作者: 小小鸟 时间: 2009-12-29 16:00
本帖最后由小小鸟于 2009-12-29 16:19 编辑

忙了几天，一直没来。谢谢fnsmydyang 指教。

"F"+Str(Trim([窗体1].[form]![文本2]+1))是用的控件来源。现在加了个1不知道有没有影响。你给的那个函数用在数据更新前吗？

不知道是不是我放错了，显示错误或无变化。

作者: 小小鸟 时间: 2009-12-29 18:16
DING...

作者: 红尘如烟 时间: 2009-12-29 18:30
用的倒是没问题，不过你需要在Current事件中刷新那个绑定的控件，不然有时候是不会自动刷新数据的
设绑定的控件名为文本框1，文本框2和文本框1在同一个窗体中，则将文本框1的默认值属性设为：="F" & Str(Trim(Nz([文本框2],0)))+1
然后在窗体的Current事件中刷新数据：
Private Sub Form_Current()
Me.文本框1.Requery
End Sub

其实像这种前缀相同的流水号最好的办法就是将字段的数据类型设为数字或自动编号，然后将格式设为：
\F#
如果要宽度一致则可以设为类似：\F00000

作者: 小小鸟 时间: 2009-12-29 18:42
问题是设为自动编号的话，如果输入错误要删除数据，流水号就会多出一条来，和文件上的编号不一致了。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)