共3 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：代码出错（已解决）
1楼
yyzlxc 发表于：2024/9/30 10:45:00控件TextBox21的TextChanged事件代码
Dim tx As WinForm.TextBox = e.Sender
Dim nf As Integer = e.Form.Controls("TextBox21").text
If tx.Text.Length = 4 And nf > 1623 Then
Dim fdr As DataRow = DataTables("年号").Find("年份 = '" & nf & "'")
If fdr Is Nothing And nf < 1624 Then
e.Form.Controls("TextBox22").text = Nothing
Else
e.Form.Controls("TextBox22").text = fdr("年号")
End If
Else
e.Form.Controls("TextBox22").text = Nothing
End If
当TextBox21为空时出错，请问如何修改代码？谢谢！！
此主题相关图片如下：屏幕截图 2024-09-30 101527.png
[此贴子已经被作者于2024/9/30 11:29:21编辑过]
2楼
有点蓝 发表于：2024/9/30 11:04:00Dim nf As Integer = val(e.Sender.text)
e.Form.Controls("TextBox22").text = Nothing
If nf > 1623 Then
Dim fdr As DataRow = DataTables("年号").Find("年份 = '" & nf & "'")
If fdr Isnot Nothing Then
e.Form.Controls("TextBox22").text = fdr("年号")
End If
End If
3楼
yyzlxc 发表于：2024/9/30 11:28:00问题解决，谢谢有点蓝老师的指教。
共3 条记录, 每页显示 10 条, 页签:
[1]