Private Sub PGRID_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles PGRID.SelectedIndexChanged
  Dim SID As Integer = PGRID.DataKeys(PGRID.SelectedIndex)

  Dim PSET As New PSSET()
  DC.FDPS(PSET)
  Dim PSROW As PSSET.銘柄表Row = PSET.銘柄表.FindByID(SID)

  SNAPI.ImageUrl = "./PIMG/" & PSROW.酒画像
  SNAPI.Visible = True
End Sub