你要生成自动编号的话,帮助有介绍,是通过表事件来编码实现的:
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