[求助]判断 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师好，日期控件没有输入时间数据时文本框1和文本框2不允许输入数据按钮1点击无效并提示

老师又要麻烦你了，文本框1、2是空，下面按钮灰化不可用。万分感谢。

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("fa piao管理").AddNew
    ndr("fa piao号码") = s & val(t1.text)
    ndr("领用日期") = e.Form.Controls("DateTimePicker1").Text
End If

For i As Integer = 2 To val(t2.text)
    ndr = DataTables("fa piao管理").AddNew
    ndr("fa piao号码") = s & val(t1.text) + i - 1
Next

此主题相关图片如下：image 1.png

[此贴子已经被作者于2019/11/19 7:00:07编辑过]

首先谢谢老师，组合框已绑定表，所绑定表是空表，此时希望组合框同样能显示下拉链字段。

老师，有其他办法吗。

老师，可否通过按钮赋值。

Tables("fa piao管理").current("fa piao名称") = e.form.controls("TextBox1").text

老师，上面代码应该摆在那个事件里。

老师，标出的代码只能引用一次下来再按按钮就不赋值了。

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("fa piao管理").AddNew

ndr("fa piao号码") = s & val(t1.text)

ndr("领用日期") = e.Form.Controls("DateTimePicker1").Text

End If

For i As Integer = 2 To val(t2.text)

ndr = DataTables("fa piao管理").AddNew

ndr("fa piao号码") = s & val(t1.text) + i - 1

Tables("fa piao管理").current("fa piao名称") = e.form.controls("ComboBox1").text

老师，每次点击按钮第一行fa piao名称列总是空的。

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("fa piao管理").AddNew

ndr("fa piao号码") = s & val(t1.text)

ndr("领用日期") = e.Form.Controls("DateTimePicker1").Text

End If

For i As Integer = 2 To val(t2.text)

ndr = DataTables("fa piao管理").AddNew

ndr("fa piao号码") = s & val(t1.text) + i - 1

ndr("fa piao名称") = e.form.controls("ComboBox1").text

老师，赋值不了。请老师帮忙。

老师，搞不好啊

主题：[求助]判断