tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板) [ツリー表示へ]   [Home]
一括表示(VB.NET VB2005)
タイトル位置0に行がありません。
記事No6035
投稿日: 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)

[ツリー表示へ]
タイトルRe: 位置0に行がありません。
記事No6042
投稿日: 2007/08/08(Wed) 21:16
投稿者魔界の仮面弁士
> 位置 0 に行がありません。
.Rows.Count が 0 だったのに、.Rows(0) にアクセスした為でしょう。
事前に、件数を確認するようにしてみてください。

[ツリー表示へ]
タイトルRe^2: 位置0に行がありません。
記事No6051
投稿日: 2007/08/09(Thu) 11:17
投稿者ddd
> > 位置 0 に行がありません。
> .Rows.Count が 0 だったのに、.Rows(0) にアクセスした為でしょう。
> 事前に、件数を確認するようにしてみてください。

ありがとうございます。
.Rows(i)とし、変数iをforで制御すれば良いのですね?

[ツリー表示へ]
タイトルRe^3: 位置0に行がありません。
記事No6058
投稿日: 2007/08/09(Thu) 12:07
投稿者ddd
> > > 位置 0 に行がありません。
> > .Rows.Count が 0 だったのに、.Rows(0) にアクセスした為でしょう。
> > 事前に、件数を確認するようにしてみてください。
>
> ありがとうございます。
> .Rows(i)とし、変数iをforで制御すれば良いのですね?
分かりました。ありがとうございました。

[ツリー表示へ]