前提・実現したいこと
以下のイベントをロードの際に読み込んでほしいです。
現在はValidatingイベント発生させているのですがLoadイベントに変更したいです。
ButtonのTagから日にちを取得しています。
発生している問題・エラーメッセージ
loadイベントで起こしたいがイベントが発生しない。
該当のソースコード
VB
1 Private Sub f1_Validating(sender As Object, e As EventArgs) 2 listF1Day(New Date(currentDate.Year, currentDate.Month, 1).DayOfWeek + currentDate.Day - 1).Select() '今日の日付パネルを取得 3 Dim dayf = DirectCast(sender, Button) 4 Dim ClickDate As Date = dayf.Tag 5 Dim dread As SqlClient.SqlDataReader 6 Dim str As String = String.Empty 7 8 Try 9 Using conn As New SqlClient.SqlConnection(pubSqlConnectionString) 10 conn.Open() 11 Using cmd As New SqlClient.SqlCommand() 12 cmd.Connection = conn 13 cmd.CommandText = 14 "SELECT TGNSHIDUKE " & ControlChars.NewLine & 15 "FROM Gyomu_Body " & ControlChars.NewLine & 16 "WHERE TGNCRTTN = '" & CM0000.login_Pass & "'" & ControlChars.NewLine 17 dread = cmd.ExecuteReader() 18 19 Do While dread.Read() 20 Dim iIdx As Integer 21 Dim hiduke As String 22 iIdx = dread.GetOrdinal("TGNSHIDUKE") 23 hiduke = dread(iIdx) 24 25 If ClickDate.ToString("yyyy/MM/dd") = hiduke Then 26 dayf.BackColor = Color.Red 27 End If 28 29 Loop 30 31 End Using 32 End Using 33 Catch 34 35 End Try 36 End Sub
試したこと
Buttonの部分をobjectに変更し、load部分に張りましたが、何も起こりませんでした。
補足情報(FW/ツールのバージョンなど)
VisualStudio2017,SQLServer
回答1件
あなたの回答
tips
プレビュー