Foxtable(狐表)用户栏目专家坐堂 → [求助]关于文本框赋值问题


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

主题:[求助]关于文本框赋值问题

帅哥哟,离线,有人找我吗?
狐狸爸爸
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251048 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/8/9 10:19:00 [只看该作者]

你要生成自动编号的话,帮助有介绍,是通过表事件来编码实现的:
http://www.foxtable.com/help/topics/2403.htm


 
完全不需要人工输入什么的。
 
 
如果你要手工输入一个数字,然后自动在前面加上日期,可以这样设置Datacolchanged事件代码:

 

If e.DataCol.Name = "入库单号"
    Dim s As String  = e.NewValue
     If s > "" And s.Length < 9 Then
           e.NewValue= format(Date.today,"yyyyMMdd")  & s
     End If
End If

 

原来设置的控件事件代码删除。

          e.NewValue =
 

Dim dh As WinForm.TextBox = e.Form.Controls("入库单号")
dh.value = format(Date.today,"yyyyMMdd") &  dh.value


 
 


 回到顶部
总数 11 上一页 1 2