以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]录入窗口代码问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=101617)
--  作者：sexbee
--  发布时间：2017/6/4 10:28:00
--  [求助]录入窗口代码问题
用窗口编辑行，双击打开后，先判断编号是否为空，空则加编号
用afterload事件

Dim blbh As String = e.Form.controls("TextBox编号").value
If blbh = "" Then
    Dim bh As String = Format(e.form.Controls("DateTimePicker入组时间").Value ,"yyyyMMdd") \'取得编号的8位前缀
    Dim blh As String = e.form.Controls("身份号").Value 
    e.form.Controls("TextBox编号").Value = bh & "-" & blh
End If

出错： TextBox编号控件 没有加入 编号
--  作者：有点色
--  发布时间：2017/6/4 17:03:00
--  

 你绑定表列了？看看

 

http://www.foxtable.com/webhelp/scr/2436.htm

 
--  作者：sexbee
--  发布时间：2017/6/4 22:01:00
--  
恩，都是VBA时遗留下来的方法，和vb完全不同。