主题：[分享]项目发布后之二_数据源的更改及服务器的登录设置

好东西阿

帮我看看这有没有问题，老提示引用的对象未设置到对象实例 

 

窗口表事件

 

窗口与控件事件

 

录入品号信息_AfterLoad

 

Dim txtBox As WinForm.TextBox

txtBox = e.Form.Controls("textbox1")

e.Form.Controls("Textbox2").ReadOnly = BooleanEnum.True

                e.Form.Controls("Textbox3").ReadOnly = BooleanEnum.True

                e.Form.Controls("combobox1").ReadOnly = BooleanEnum.True

 

txtBox.ReadOnly = BooleanEnum.True

 

录入品号信息_bc_Click

 

If e.Form.Controls("Textbox1").text=""

    MessageBox.Show("物料编号不能为空")

Else

    If e.Form.controls("textbox2").text=""

        messageBox.show("助记码不能为空")

    Else

        If e.form.controls("textbox3").text=""

            messageBox.show("物料名称不能为空")

        Else

            If e.form.controls("combobox1").text=""

                messagebox.show("主要仓库不能为空")

            Else

                Dim cr As Row = Tables("品号信息").current

                If Tables("品号信息").current.Locked = False Then

                    cr("物料编号")=e.ForM.controls("Textbox1").text

                    cr("物料名称")=e.ForM.controls("Textbox2").text

                    cr("助记码")=e.ForM.controls("Textbox3").text

                    cr("主要仓库")=e.ForM.controls("combobox1").text

                    cr.Locked=True

                    e.Form.Controls("Textbox1").text=""

                    e.Form.Controls("Textbox2").text=""

                    e.Form.Controls("Textbox3").text=""

                    e.Form.Controls("combobox1").text=""

                    e.Form.Controls("Textbox1").ReadOnly = BooleanEnum.True

                    e.Form.Controls("Textbox2").ReadOnly = BooleanEnum.True

                    e.Form.Controls("Textbox3").ReadOnly = BooleanEnum.True

                    e.Form.Controls("combobox1").ReadOnly = BooleanEnum.True

                   

                Else

                    Dim nr As Row = Tables("品号信息").AddNew

                    nr("物料编号")=e.ForM.controls("Textbox1").text

                    nr("物料名称")=e.ForM.controls("Textbox2").text

                    nr("助记码")=e.ForM.controls("Textbox3").text

                    nr("主要仓库")=e.ForM.controls("combobox1").text

                    e.Form.Controls("Textbox1").text=""

                    e.Form.Controls("Textbox2").text=""

                    e.Form.Controls("Textbox3").text=""

                    e.Form.Controls("combobox1").text=""

                    e.Form.Controls("Textbox1").ReadOnly = BooleanEnum.True

                    e.Form.Controls("Textbox2").ReadOnly = BooleanEnum.True

                    e.Form.Controls("Textbox3").ReadOnly = BooleanEnum.True

                    e.Form.Controls("combobox1").ReadOnly = BooleanEnum.True

                    nr.Locked = True

                End If

            End If

        End If

    End If

End If

 

录入品号信息_Button1_Click

 

e.Form.Controls("textbox1").ReadOnly =BooleanEnum.False

e.Form.Controls("textbox2").ReadOnly =BooleanEnum.False

e.Form.Controls("textbox3").ReadOnly =BooleanEnum.False

e.Form.Controls("combobox1").ReadOnly =BooleanEnum.False

 

录入品号信息_Button2_Click

 

Tables("品号信息").applyfilter=False

 

录入品号信息_sc_Click

 

With Tables("品号信息")

    If .Current IsNot Nothing Then

.Current.Locked=False

        .Current.Delete

    End If

End With

 

录入品号信息_xg_Click

 

With Tables("品号信息")

    If .Current IsNot Nothing Then

        .Current.Locked = False

        e.Form.Controls("Textbox1").text = .current("物料编号")

        e.Form.Controls("Textbox2").text = .current("物料名称")

        e.Form.Controls("Textbox3").text = .current("助记码")

        e.Form.Controls("combobox1").text = .current("主要仓库")

        e.Form.Controls("Textbox1").ReadOnly = BooleanEnum.False

        e.Form.Controls("Textbox2").ReadOnly = BooleanEnum.False

        e.Form.Controls("Textbox3").ReadOnly = BooleanEnum.False

        e.Form.Controls("combobox1").ReadOnly = BooleanEnum.False

    End If

End  With

 

 

正需要这样的.能发给我一份吗

学习了！

看看

看看

 

hhh

学习

 
学习下

好好学习一下