行 58: Dim activitysql As String = "select * from A_activity where A_act_serno ='" & ActPK & "'"
行 59: Dim activitydt As DataTable = Taknow.Utility.SqlQuery.GetDataTable(activitysql)
行 60: Me.Label5.Text = ForProject.TransDate(activitydt.Rows(0)("A_act_openOnDate"), "民國") '研習會日期
行 61: 'Me.Label7.Text = "共計" & Math.Round(activitydt.Rows(0)("A_act_hour") / 60, 2) & "小時" '時數
行 62: Me.Label9.Text = activitydt.Rows(0)("A_act_cName") '研習會主題
|