主题：[求助]录入窗口部分代码问题

If Tables("ar_table5").Current IsNot Nothing Then
    For Each st As String In sts2
        If Tables("ar_table5").Current.isnull(st) = True Then
            MessageBox.Show("Pre show<- "& ST &" ->列未填写完整,不能保存!","提醒")
            Return
        End If
    Next
    Tables("ar_table5").Current("录入人")=_username
    Tables("ar_table5").Current.save
    Dim Result As DialogResult
    For Each st3 As String In sts3
        If Tables("ar_table5").Current.isnull(st3) = True Then
            Result=MessageBox.Show("Post show填写不完整,不能保存Post show,是否返回!","提醒",MessageBoxButtons.YesNo)
            If Result=DialogResult.Yes Then
                Return
            Else
                Exit For
            End If
        End If
    Next
    Tables("ar_table5").Current("录入人")=_username
    
    Tables("ar_table5").Current.Locked=True
    Tables("ar_table5").Current.save

    Dim bt1 As WinForm.Button = e.Form.Controls("Button1")
    Dim bt2 As WinForm.Button = e.Form.Controls("Button2")
    bt1.Enabled=True
    bt2.Enabled=True
End If

尽量不要在输入的时候查询，因为每查一次，都耗时。

 TextChanged事件代码

If e.Sender.Text IsNot Nothing Then
    e.sender.Text =e.Sender.Text.ToUpper
End If

 Leave事件代码

Tables("ar_table5").Current("旧项目号") =e.Sender.Text.ToUpper

 你确定这个时候你的 项目号 有值吗？你加入msgbox调试一下

dr3=dt2.sqlFind("Project= '" & e.DataRow("项目号") &"'")