如何通过另一个窗体上的文本框更新datagridview中的选定行?

新手马特

嗨,大家好,我到目前为止一直在使用我的系统,它已经完成了,但是有一件事我还无法解决(除非您帮我解决)。所以这是我的代码:

Private Sub btnEditmain_Click(sender As Object, e As EventArgs) Handles btnEditmain.Click

    Try
        editdgv()
        Form2.Show()
        DataGridView2.AllowUserToAddRows = True
    Catch ex As Exception
        MsgBox(ex.Message)
    End Try
End Sub

这是私人子editdgv

Private Sub editdgv()
    Dim i = DataGridView2.CurrentRow.Index

    With DataGridView2
        Form2.txtPeriod.Text = IIf(IsDBNull(.Rows(i).Cells("period").Value), " ", .Rows(i).Cells("period").Value)
        Form2.txtVouch.Text = IIf(IsDBNull(.Rows(i).Cells("vouch_amt").Value), " ", .Rows(i).Cells("vouch_amt").Value)
        Form2.txtIndivAmt.Text = IIf(IsDBNull(.Rows(i).Cells("individual_amt").Value), " ", .Rows(i).Cells("individual_amt").Value)
        Form2.txtCheckno.Text = IIf(IsDBNull(.Rows(i).Cells("check_no").Value), " ", .Rows(i).Cells("check_no").Value)
        Form2.txtDmailed.Text = IIf(IsDBNull(.Rows(i).Cells("D_MAILED").Value), " ", .Rows(i).Cells("D_MAILED").Value)
        Form2.txtDirno.Text = IIf(IsDBNull(.Rows(i).Cells("DIR_NO").Value), " ", .Rows(i).Cells("DIR_NO").Value)
        Form2.txtYrlvl.Text = IIf(IsDBNull(.Rows(i).Cells("year_student").Value), " ", .Rows(i).Cells("year_student").Value)
        Form2.txtUpdatedBy.Text = IIf(IsDBNull(.Rows(i).Cells("who_updated").Value), " ", .Rows(i).Cells("who_updated").Value)
    End With
End Sub

我能够将datagridview中选定行的值传递给另一种形式(文本框),所有一切都从那里正常进行。

现在,我想做的是更新现在在我的文本框中的那个选定的datagridview。通过单击按钮。

现在,我只能保存在文本框中所做的更改,因此它将在数据库上进行更新。

请帮助我如何通过单击按钮更新文本框中datagridview中的所选行。谢谢!

Public Class Form2

Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click

End Sub

End Class

我已经在记事本中创建了此代码。因此,可能会有一些问题。

FORM 1
Private Sub btnEditmain_Click(sender As Object, e As EventArgs) Handles btnEditmain.Click

   Try
        Dim dt As DataTable = TryCast(DataGridView2.DataSource, DataTable)
        Dim dr As DataRow = dt.Rows(DataGridView2.CurrentRow.Index)
        Dim frm As New Form2
        frm.dr = dr
        frm.Show()
        DataGridView2.AllowUserToAddRows = True
    Catch ex As Exception
        MsgBox(ex.Message)
    End Try
End Sub


FORM 2

Public dr As DataRow = Nothing

Private Sub Form2_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
    With dr
        txtPeriod.Text = IIf(IsDBNull(.Item("period")), vbNullString, .Item("period").ToString)
        txtVouch.Text = IIf(IsDBNull(.Item("vouch_amt")), vbNullString, .Item("vouch_amt").ToString)
        txtIndivAmt.Text = IIf(IsDBNull(.Item("individual_amt")), vbNullString, .Item("individual_amt").ToString)
        txtCheckno.Text = IIf(IsDBNull(.Item("check_no")), vbNullString, .Item("check_no").ToString)
        txtDmailed.Text = IIf(IsDBNull(.Item("D_MAILED")), vbNullString, .Item("D_MAILED").ToString)
        txtDirno.Text = IIf(IsDBNull(.Item("DIR_NO")), vbNullString, .Item("DIR_NO").ToString)
        txtYrlvl.Text = IIf(IsDBNull(.Item("year_student")), vbNullString, .Item("year_student").ToString)
        txtUpdatedBy.Text = IIf(IsDBNull(.Item("who_updated")), vbNullString, .Item("who_updated").ToString)
    End With
End Sub

Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
    With dr
        .Item("period") = txtPeriod.Text
        .Item("vouch_amt") = txtVouch.Text
        .Item("individual_amt") = txtIndivAmt.Text
        .Item("check_no") = txtCheckno.Text
        .Item("D_MAILED") = txtDmailed.Text
        .Item("DIR_NO") = txtDirno.Text
        .Item("year_student") = txtYrlvl.Text
        .Item("who_updated") = txtUpdatedBy.Text
    End With    
    dr.Table.AcceptChanges
End Sub

本文收集自互联网,转载请注明来源。

如有侵权,请联系[email protected] 删除。

编辑于
0

我来说两句

0条评论
登录后参与评论

相关文章

来自分类Dev

如何将文本从一个Web窗体文本框中移动到另一个Web窗体文本框中

来自分类Dev

如何在VB中将文本从一个文本框保存/追加到同一窗体上的另一个文本框

来自分类Dev

如何在VB中将文本从一个文本框保存/追加到同一窗体上的另一个文本框

来自分类Dev

如何访问子窗体上的文本框控件的值,其中子窗体本身只是主窗体的另一个子窗体上的控件

来自分类Dev

通过VBA更新另一个表单的文本框中的值

来自分类Dev

在另一个文本框中的选定文本之前添加文本

来自分类Dev

如何在C#中的另一个线程上运行的循环中更新文本框

来自分类Dev

当我关闭另一个窗体时如何在文本框中设置焦点?

来自分类Dev

在另一个表单C#上将选定的datagridview项目显示到文本框

来自分类Dev

通过登录表单更新另一个表单文本框

来自分类Dev

Excel VBA在工作表上的用户窗体上填充文本框,具体取决于另一个文本框输入

来自分类Dev

从另一个类更新WinForm上的文本框

来自分类Dev

如何在另一个文本框中同时写入文本框值?

来自分类Dev

如何对另一个文本框中的数组文本框的所有输出求和

来自分类Dev

如何根据另一个文本框值在jdeveleper的表中设置文本框只读?

来自分类Dev

用户在文本框中插入值后如何显示另一个文本框?

来自分类Dev

在另一个文本框中输入数据时文本框完成

来自分类Dev

如何将javascript变量值从选定的文本框设置为另一个文本框

来自分类Dev

如何通过单击另一个用户控件中的按钮在用户控件中的文本框中显示一些文本?

来自分类Dev

从datagridview获取ID并将数据显示到文本框中的另一个表单

来自分类Dev

如何在一个表单上单击按钮并在另一个类中的字符串中获取文本框的值?

来自分类Dev

我的 datagridview 不能传递到另一个表单文本框

来自分类Dev

在窗体的第二行上制作一个较大的文本框

来自分类Dev

通过Background Worker通过另一个类VB.Net中的方法更新主窗体上的控件

来自分类Dev

根据在另一个文本框中输入的文本在文本框中显示文本

来自分类Dev

如何用另一个词替换文本框中的一个词

来自分类Dev

将一个选定的文本框值分配给JQuery Auto Complete中的另一个

来自分类Dev

根据另一个表单上的值在报表上填充文本框

来自分类Dev

在 C# 中的 win 表单上动态显示在另一个类中创建的文本框

Related 相关文章

  1. 1

    如何将文本从一个Web窗体文本框中移动到另一个Web窗体文本框中

  2. 2

    如何在VB中将文本从一个文本框保存/追加到同一窗体上的另一个文本框

  3. 3

    如何在VB中将文本从一个文本框保存/追加到同一窗体上的另一个文本框

  4. 4

    如何访问子窗体上的文本框控件的值,其中子窗体本身只是主窗体的另一个子窗体上的控件

  5. 5

    通过VBA更新另一个表单的文本框中的值

  6. 6

    在另一个文本框中的选定文本之前添加文本

  7. 7

    如何在C#中的另一个线程上运行的循环中更新文本框

  8. 8

    当我关闭另一个窗体时如何在文本框中设置焦点?

  9. 9

    在另一个表单C#上将选定的datagridview项目显示到文本框

  10. 10

    通过登录表单更新另一个表单文本框

  11. 11

    Excel VBA在工作表上的用户窗体上填充文本框,具体取决于另一个文本框输入

  12. 12

    从另一个类更新WinForm上的文本框

  13. 13

    如何在另一个文本框中同时写入文本框值?

  14. 14

    如何对另一个文本框中的数组文本框的所有输出求和

  15. 15

    如何根据另一个文本框值在jdeveleper的表中设置文本框只读?

  16. 16

    用户在文本框中插入值后如何显示另一个文本框?

  17. 17

    在另一个文本框中输入数据时文本框完成

  18. 18

    如何将javascript变量值从选定的文本框设置为另一个文本框

  19. 19

    如何通过单击另一个用户控件中的按钮在用户控件中的文本框中显示一些文本?

  20. 20

    从datagridview获取ID并将数据显示到文本框中的另一个表单

  21. 21

    如何在一个表单上单击按钮并在另一个类中的字符串中获取文本框的值?

  22. 22

    我的 datagridview 不能传递到另一个表单文本框

  23. 23

    在窗体的第二行上制作一个较大的文本框

  24. 24

    通过Background Worker通过另一个类VB.Net中的方法更新主窗体上的控件

  25. 25

    根据在另一个文本框中输入的文本在文本框中显示文本

  26. 26

    如何用另一个词替换文本框中的一个词

  27. 27

    将一个选定的文本框值分配给JQuery Auto Complete中的另一个

  28. 28

    根据另一个表单上的值在报表上填充文本框

  29. 29

    在 C# 中的 win 表单上动态显示在另一个类中创建的文本框

热门标签

归档