Imports System.Data.OleDb

Public Class FrmCetakKrs

 Private Sub FrmCetakKrs_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated

 txtNoKrs.Focus()

 End Sub

 Private Sub BtnCariKrs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCariKrs.Click

 Dim popupKRS As New PopUp_CetakKrs

 popupKRS.ShowDialog()

 If popupKRS.retnokrs <> "" Then

 txtNoKrs.Text = popupKRS.retnokrs



 txtTglKrs.Text = Format(CDate(dreader.Item(popupKRS.retTglKrs).ToString), "dddd-MMMM-yyyy")

 

 txtNim.Text = popupKRS.retnim

 txtNama.Text = popupKRS.retnama

 BtnCetak.Focus()

 End If

 End Sub



 Private Sub BtnBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBatal.Click

 bersih()

 End Sub



 Private Sub bersih()

 txtNoKrs.Clear()

 txtTglKrs.Clear()

 txtNim.Clear()

 txtNama.Clear()

 End Sub



 Private Sub BtnCetak_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCetak.Click

 FrmCRCetakKrs.Show()

 End Sub



 Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click

 Me.Close()

 End Sub

End Class

gan napa yah pas ngambil popup dari krs mahasiswa tglnya gak mau muncul?...