行 61: If dt.Rows.Count > 0 Then
行 62: Dim dr As Data.DataRow = dt.Rows(0)
行 63: sid = dr.Item("treeid").ToString.Split("-")(dr.Item("treeid").ToString.Split("-").Length - 2)
行 64: tid = dr.Item("treeid").ToString.Split("-")(1)
行 65: top1.page_tit = comm.Syspagetit(dr.Item("id"), "db_Applica", dr.Item("newtitle").ToString)
|