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

老师，

录入窗口的保存按钮有问题，麻烦您给看下哪里不对

位置点击“增加”按钮然后进入“JOBCARD编辑窗口”

保存按钮的代码这部分在对应为空的时候没有执行，请老师给看下

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

[此贴子已经被作者于2015/7/16 16:33:28编辑过]

有什么问题？只要填入了内容，就没问题啊。

哦没填就可以保存

[此贴子已经被作者于2015/7/16 15:10:21编辑过]

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

老师，

在录入旧项目号：

AAAER14001-001 我是粘贴进去的

为什么速度特变慢，第一遍没有执行第二遍才执行 AR窗口的 Table5 Datacolchanged 的代码下面黄色标注的

Select e.DataCol.Name

Case "旧项目号"

Dim dt,dt1,dt2 As DataTable

Dim cmd,cmd1,cmd2 As New SQLCommand

cmd.C

cmd1.C

cmd2.C

cmd.CommandText = "SELECT * Fr om {ERPcode} where 1=2"

cmd1.CommandText = "SELECT * Fr om {组别转换} where 1=2"

cmd2.CommandText = "SELECT * Fr om {Showcode转换} where 1=2"

dt = cmd2.ExecuteReader()

dt1 = cmd1.ExecuteReader()

dt2 = cmd.ExecuteReader()

If e.NewValue IsNot Nothing AndAlso e.NewValue.Length >2 Then

Dim dr,dr1,dr3 As DataRow

dr = dt.sqlFind("旧项目号= '"& e.NewValue &"'")

If dr IsNot Nothing Then

e.DataRow("项目号") =dr("项目号")

e.DataRow("ShowName")=dr("ProjectName")

e.DataRow("组别")=e.DataRow("项目号").SubString(0,2)

dr1 = dt1.sqlFind("原组别='"& e.DataRow("组别") &"'")

If dr1 IsNot Nothing Then

e.DataRow("组别")=""

e.DataRow("组别")=dr1("组别")

End If

Else

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

If dr3 IsNot Nothing Then

e.DataRow("项目号")=dr3("Project")

e.DataRow("组别") =e.DataRow("项目号").SubString(0,2)

e.DataRow("pic")=dr3("PIC name")

e.DataRow("ShowName")=dr3("Name")

Else

e.DataRow("项目号")=e.DataRow("旧项目号")

e.DataRow("组别") =e.DataRow("项目号").SubString(0,2)

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("项目号") &"'")

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