私は学生の結果を示すことができる用紙を持っています。私の学生用紙をdocxに印刷したい
これは、プログラムの外観です:
Public Class Form2
Private Sub PenilaianBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs)
Me.Validate()
Me.PenilaianBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.MahasiswaDataSet)
End Sub
Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'MahasiswaDataSet.penilaian' table. You can move, or remove it, as needed.
Me.PenilaianTableAdapter.Fill(Me.MahasiswaDataSet.penilaian)
NimTextBox.Text = ""
NamaLabel1.Text = ""
NimLabel1.Text = ""
TugasLabel1.Text = ""
UlanganLabel1.Text = ""
UtsLabel1.Text = ""
UasLabel1.Text = ""
HasilLabel1.Text = ""
SkorLabel1.Text = ""
End Sub
Private Sub btnoke_Click(sender As Object, e As EventArgs) Handles btnoke.Click
Try
Dim dt = PenilaianTableAdapter.GetDataBycaridata(NimTextBox.Text)
If dt.Rows.Count <> 0 Then
NamaLabel1.Text = dt.Rows(0).Item(1)
NimLabel1.Text = dt.Rows(0).Item(2)
TugasLabel1.Text = dt.Rows(0).Item(3)
UlanganLabel1.Text = dt.Rows(0).Item(4)
UtsLabel1.Text = dt.Rows(0).Item(5)
UasLabel1.Text = dt.Rows(0).Item(6)
HasilLabel1.Text = dt.Rows(0).Item(7)
SkorLabel1.Text = dt.Rows(0).Item(8)
Else
MsgBox("NIM Yang Anda Input Salah Atau Data Anda Belum Diinput. Silahkan Coba Lagi", MsgBoxStyle.Critical, "Info")
NimTextBox.Text = ""
NamaLabel1.Text = ""
NimLabel1.Text = ""
TugasLabel1.Text = ""
UlanganLabel1.Text = ""
UtsLabel1.Text = ""
UasLabel1.Text = ""
HasilLabel1.Text = ""
SkorLabel1.Text = ""
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.Hide()
Form3.Show()
End Sub
End Class
問題は、次のとおりです。
私はこのような "桶" ボタンの結果を印刷したいです。 NAM、NIM、Tugas、Ulangan、UTS、UAS、hasil、skorを私が作成したMicrosoft Wordテンプレートに変換します。
私は、コードがどのようにしてそれを行う方法がわかりません。
私を助けてください。
この質問は本当に広いです。あなたは自分で研究をしましたか?何を試しましたか?あなたが遭遇した問題は何ですか? – LeonG