Script cara menampilkan Data dari Datagrid ke textbox.
code :
Imports System.Data.OleDb
Public Class FormAlfa
Sub TAMPILDATA()
Call Koneksi()
Dim sql3 As String
sql3 = "select * from tbpenjualan"
dtadapter = New OleDbDataAdapter(sql3, Conn)
DataGridView1.Refresh()
Dim ASD As New DataTable
ASD.Clear()
dtadapter.Fill(ASD)
DataGridView1.DataSource = ASD
Conn.Close()
End Sub
===========================================
Private Sub FormAlfa_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call TAMPILDATA()
textbox1.Focus()
End Sub
===========================================
CODING MENAMPILKAN DATA KE TEXTBOX
Private Sub DataGridView1_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick
Dim i As Integer
i = Me.DataGridView1.CurrentRow.Index
With DataGridView1.Rows.Item(i)
textbox1.Text = .Cells(0).Value
textbox2.Text = .Cells(1).Value
textbox3.Text = .Cells(2).Value
textbox4.Text = .Cells(3).Value
textbox5.Text = .Cells(4).Value
End With
End Sub
No comments:
Post a Comment