主题：文本框自动按日期框年月编号

 If e.form.Controls("DateTimePicker1").value =  Nothing Then
        e.Form.controls("TextBox1").value = Nothing
    Else
        Dim bh As String = Format(e.form.Controls("DateTimePicker1").value ,"yyyyMMdd") '取得编号的8位前缀
        If e.form.Controls("DateTimePicker1").'.StartsWith(bh) = False '如果编号的前8位不符
            Dim  max As String
            Dim  idx As  Integer
            max = DataTables("采购").Compute("Max(单号)","入库日期 = #" &  e.form.Controls("DateTimePicker1").value & "#" ) '取得该天的最大编号
            If  max > "" Then '如果存在最大编号
                idx = CInt(max.Substring(9,3)) + 1  '获得最大编号的后三位顺序号,并加1
            Else
                idx = 1 '否则顺序号等于1
            End  If
            e.Form.controls("TextBox1").value = bh & "-" & Format(idx,"000")
         End If
    End  If

此主题相关图片如下：qq截图20181204235950.png

此主题相关图片如下：qq截图20181205000130.png

根据采购表中的单号，和窗口的日期文本框的日期年月份生成单号，窗口日期和单号文件是没有绑定的，我是想在窗口输入日期后单号文本框自动生产单号，样式：SG201811-00001

参考这里的做法

 

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

 

看过了，在表上可以，试了大半日还是学不会，在文本框就转不过来了

 

贴出你表格里面写好的代码。

If e.form.Controls("DateTimePicker1").value =  Nothing Then         e.Form.controls("TextBox1").value = Nothing     Else         Dim bh As String = Format(e.form.Controls("DateTimePicker1").value ,"yyyyMMdd") '取得编号的8位前缀         If e.form.Controls("DateTimePicker1").'.StartsWith(bh) = False '如果编号的前8位不符             Dim  max As String             Dim  idx As  Integer             max = DataTables("采购").Compute("Max(单号)","入库日期 = #" &  e.form.Controls("DateTimePicker1").value & "#" ) '取得该天的最大编号             If  max > "" Then '如果存在最大编号                 idx = CInt(max.Substring(9,3)) + 1  '获得最大编号的后三位顺序号,并加1             Else                 idx = 1 '否则顺序号等于1             End  If             e.Form.controls("TextBox1").value = bh & "-" & Format(idx,"000")          End If     End  If

If e.form.Controls("DateTimePicker1").text =  Nothing Then
    e.Form.controls("TextBox1").value = Nothing
Else
    Dim bh As String = Format(cdate(e.form.Controls("DateTimePicker1").text) ,"yyyyMMdd") '取得编号的8位前缀
    Dim  max As String
    Dim  idx As  Integer
    max = DataTables("采购").Compute("Max(单号)","入库日期 = #" &  e.form.Controls("DateTimePicker1").value & "#" ) '取得该天的最大编号
    If  max > "" Then '如果存在最大编号
        idx = CInt(max.Substring(9,3)) + 1  '获得最大编号的后三位顺序号,并加1
    Else
        idx = 1 '否则顺序号等于1
    End  If
    e.Form.controls("TextBox1").value = bh & "-" & Format(idx,"000")
   
End  If

多谢