tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 位置0に行がありません。
投稿日: 2007/08/08(Wed) 15:37
投稿者ddd
位置 0 に行がありません。
If Mode = 0 Then
            Button1.Text = "登録"
            strMode = "登録"
            Me.TextBox1.Text = ""
            Me.TextBox2.Text = ""
            Me.TextBox3.Text = ""
        Else
            Button2.Text = "修正"
            strMode = "修正"
            Sql = ""
            Sql &= "SELECT"
            Sql &= " " & "社員コード" & ","
            Sql &= " " & "社員名" & ","
            Sql &= " " & "フリガナ"
            Sql &= " " & "From"
            Sql &= " " & "KYU"
            Sql &= " " & "WHERE"
            Sql &= " " & "("
            Sql &= " " & "社員コード"
            Sql &= " " & "="
            Sql &= "' " & Mid(CStr(Code), 1, 4) & "'" & ")"

            Dim datatable As DataTable
            datatable = New DataTable
            If Not DbSelect(Sql, datatable) Then
                MsgBox("Access失敗", MsgBoxStyle.Exclamation, "社員マスター修正")
                Exit Sub
Me.TextBox1.Text = datatable.Rows(0).Item(0)←ここに”位置0に行がありません”のエラーが出ます。
Me.TextBox2.Text = datatable.Rows(0).Item(1)
Me.TextBox3.Text = datatable.Rows(0).Item(2)

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。