- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]日期输入框 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=85178)
-- 发布时间：2016/5/19 13:34:00
-- [求助]日期输入框
老师好
此主题相关图片如下：图像 1.png
-- 发布时间：2016/5/19 14:26:00
--
Enter事件
e.sender.ReadOnly = BooleanEnum.False
-- 发布时间：2016/5/19 15:21:00
--
此主题相关图片如下：图像 2.png
下面是生成发票号码的代码。
Dim t1 As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim t2 As WinForm.TextBox = e.Form.Controls("TextBox2")
Dim s As String = ""
If t1.text(0) = "0" Then
s = "0"
End If
Dim ndr As DataRow
If val(t2.text) >= 1
ndr = DataTables("发票管理").AddNew
ndr("发票号码") = s & val(t1.text)
ndr("领用日期") = e.Form.Controls("DateTimePicker1").Text
End If
For i As Integer = 2 To val(t2.text)
ndr = DataTables("发票管理").AddNew
ndr("发票号码") = s & val(t1.text) + i - 1
Next
-- 发布时间：2016/5/19 16:18:00
--
那你就不要绑定列啊
Dim t1 As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim t2 As WinForm.TextBox = e.Form.Controls("TextBox2")
Dim s As String = ""
If t1.text(0) = "0" Then
s = "0"
End If
Dim ndr As DataRow
For i As Integer = 1 To val(t2.text)
ndr = DataTables("发票管理").AddNew
ndr("发票号码") = s & val(t1.text) + i - 1
ndr("领用日期") = e.Form.Controls("DateTimePicker1").Text
Next
-- 发布时间：2016/5/19 16:26:00
--
此主题相关图片如下：图像 3.png
-- 发布时间：2016/5/19 16:30:00
--
那你直接用3楼的代码就行啊。
-- 发布时间：2016/5/19 16:31:00
--
老师，三楼的日期输入框不绑定是可以的。
[此贴子已经被作者于2016/5/19 16:37:55编辑过]