SQL文で、
select・・・・(select・・・・・) a ・・
となっていて、このaを使ってjoinをしたいと思っているのですが、
select・・・・(select・・・・・) a From (a right join NAME b on a.CD=b.CD) right join c・・・・・・
としてしまうとエラーとなってしまいます。
このaの使い方がわかりません。
どなたかアドバイスお願いします。
プログラムを終了する時、“プログラムを終了しますか？”というメッセージを表示し“はい”ボタンを押すとプログラムを終了、“いいえ”ボタンを押すとプログラムを終了しないようにしたいのですが、“いいえ”ボタンを押すとフォームが消えてしまいます。この時プログラムは終了していません。消えているフォームを再度表示したいのですが、どうしたら良いのか分かりません。Me.Show()、Me.Refresh()とかを使用しても表示されません。現在のコードを記載しますのでどなたか教えて下さい。よろしくお願いします。
Private Sub MainDisp_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
Dim resources As System.ComponentModel.ComponentResourceManager _
= New System.ComponentModel.ComponentResourceManager(GetType(MainDisp))
Dim msg As String
Dim ret As String
Beep()
msg = My.Resources.msg001
resources.ApplyResources(msg, "msg")
ret = MsgBox(msg, MsgBoxStyle.YesNo + MsgBoxStyle.Question, My.Resources.msg002)
If ret = vbYes Then
End
Else
Me.Show()
Me.Refresh()
End If
End Sub
プログラムを終了する時、“プログラムを終了しますか？”というメッセージを表示し“はい”ボタンを押すとプログラムを終了、“いいえ”ボタンを押すとプログラムを終了しないようにしたいのですが、“いいえ”ボタンを押すとフォームが消えてしまいます。この時プログラムは終了していません。消えているフォームを再度表示したいのですが、どうしたら良いのか分かりません。Me.Show()、Me.Refresh()とかを使用しても表示されません。現在のコードを記載しますのでどなたか教えて下さい。よろしくお願いします。
Private Sub MainDisp_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
Dim resources As System.ComponentModel.ComponentResourceManager _
= New System.ComponentModel.ComponentResourceManager(GetType(MainDisp))
Dim msg As String
Dim ret As String
Beep()
msg = My.Resources.msg001
resources.ApplyResources(msg, "msg")
ret = MsgBox(msg, MsgBoxStyle.YesNo + MsgBoxStyle.Question, My.Resources.msg002)
If ret = vbYes Then
End
Else
Me.Show()
Me.Refresh()
End If
End Sub
プログラムを終了する時、“プログラムを終了しますか？”というメッセージを表示し“はい”ボタンを押すとプログラムを終了、“いいえ”ボタンを押すとプログラムを終了しないようにしたいのですが、“いいえ”ボタンを押すとフォームが消えてしまいます。この時プログラムは終了していません。消えているフォームを再度表示したいのですが、どうしたら良いのか分かりません。Me.Show()、Me.Refresh()とかを使用しても表示されません。現在のコードを記載しますのでどなたか教えて下さい。よろしくお願いします。
Private Sub MainDisp_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
Dim resources As System.ComponentModel.ComponentResourceManager _
= New System.ComponentModel.ComponentResourceManager(GetType(MainDisp))
Dim msg As String
Dim ret As String
Beep()
msg = My.Resources.msg001
resources.ApplyResources(msg, "msg")
ret = MsgBox(msg, MsgBoxStyle.YesNo + MsgBoxStyle.Question, My.Resources.msg002)
If ret = vbYes Then
End
Else
Me.Show()
Me.Refresh()
End If
End Sub
VB2005 の初心者です。
Windows XPなどで、Messengerサービスが動作していれば、net send コマンドで別端末にメッセージを送信することができますが、Windows VISTA には、net send コマンドがなく、同様のことができずに悩んでいます。
Windows VISTA では別端末にメッセージを送信することはできないのでしょうか。Eメールアドレスにメールを送信することはできたのですが、できれば、net send コマンドのようにメッセージボックス（？）を表示させる形でメッセージを送信したいと思っています。
何かヒントになるようなことでも良いので、皆様の知恵をお借りできれば幸いです。
よろしくお願い致します。
VB2005 の初心者です。
Windows XPなどで、Messengerサービスが動作していれば、net send コマンドで別端末にメッセージを送信することができますが、Windows VISTA には、net send コマンドがなく、同様のことができずに悩んでいます。
Windows VISTA では別端末にメッセージを送信することはできないのでしょうか。Eメールアドレスにメールを送信することはできたのですが、できれば、net send コマンドのようにメッセージボックス（？）を表示させる形でメッセージを送信したいと思っています。
何かヒントになるようなことでも良いので、皆様の知恵をお借りできれば幸いです。
よろしくお願い致します。
開発初心者で困っております。
VisualBasic2005、SQL Server2005Expressで開発しています。
DataGridViewのToolStripでフィルターを掛けたいのですが、フィルタの実行をすると、Dgvで行っているカラム1＋カラム2の計算をしているSubプロシージャで”オブジェクト参照がオブジェクト インスタンスに設定されていません。”というエラーが出て中断します。
下記にソースを記載します。
(ToolStripフィルタ実行)-----------------------------------------
Private Sub FillByDivToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FillByDivToolStripButton.Click
If cmbDiv.Text <> "" Then
Try
Me.T_payscheduleTableAdapter.FillByDiv(Me.MoPDataSet.t_payschedule, cmbDiv.Text)
・・・
(Dgvの計算部分)-------------------------------------------------
Private Sub T_payscheduleDataGridView_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles T_payscheduleDataGridView.SelectionChanged
Dim iRow As Integer =Me.T_payscheduleDataGridView.CurrentCell.RowIndex() ←ここでエラー発生！！
Dim iCol As Integer=Me.T_payscheduleDataGridView.CurrentCell.ColumnIndex()
・・・
-------------------------------------------------------------
エラーMsgを手掛かりに色々調べてはいるのですが解決の糸口がつかめません。よろしくお願いします。
