tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板) [ツリー表示へ]   [Home]
一括表示(VB.NET VB2005)
タイトルDataGridViewの修正
記事No6077
投稿日: 2007/08/10(Fri) 09:58
投稿者kokoro
DataSelect()では、DataGridView1にSQLのテーブルからデータを表示させているのですが、
修正の場合に、選択した行の社員コード、社員名、フリガナを、遷移画面のTextBox1、TextBox2、TextBox3に表示させたいのですが....。

[ツリー表示へ]
タイトルRe: DataSelext()
記事No6081
投稿日: 2007/08/10(Fri) 10:35
投稿者かさのば
>>表示させたいのですが....。
表示させたいのですが、何ですか?
聞きたい事があるなら「...」なんかで省略せずに、もっとちゃんと明確に書いてください。
私も含め、ここを見ている方々は貴方の上司でも先輩でも先生でもお母さんでもありません
貴方の「...」の奥に隠された意思など、知る由もありませんし、文脈等から、貴方の伝えた
いことを汲み取る努力をする義理もありません。


と言うわけで
・何が問題なのか
・その問題を解決するに当たって何を調べたか(参考にしたサイトなどあれば合わせて書いて
おくと良いと思います。)
ぐらいは最低限明確にして頂きたいです。


最後に、貴方にとって非常に有益と思われるサイトをご紹介いたします。
http://www.ranvis.com/articles/smart-questions.ja.html
http://www.hyuki.com/writing/techask.html

[ツリー表示へ]
タイトルRe: DataSelext()
記事No6083
投稿日: 2007/08/10(Fri) 10:47
投稿者花ちゃん
質問されのは、構わないのですが、前回の質問の途中を掘っておいて新たに
質問するのは、どうかと思います。
せめて、レスを頂いた分については、返事をしてからにするようにして下さい。

ハンドルネールを変えて投稿した分もですよ。

[ツリー表示へ]
タイトルRe^2: DataSelect()
記事No6085
投稿日: 2007/08/10(Fri) 10:58
投稿者kokoro
> 質問されのは、構わないのですが、前回の質問の途中を掘っておいて新たに
> 質問するのは、どうかと思います。
> せめて、レスを頂いた分については、返事をしてからにするようにして下さい。
>
> ハンドルネールを変えて投稿した分もですよ。

はい。ルールも知らずに質問ばかりしていました。これから気を付けます。ありがとうございました。
DataSelextは私が作った関数名です。

[ツリー表示へ]
タイトルform1のDataGridView1のデータをform2に表示
記事No6188
投稿日: 2007/08/29(Wed) 13:58
投稿者kokoro
> > 質問されのは、構わないのですが、前回の質問の途中を掘っておいて新たに
> > 質問するのは、どうかと思います。
> > せめて、レスを頂いた分については、返事をしてからにするようにして下さい。
> >
> > ハンドルネールを変えて投稿した分もですよ。
>
> はい。ルールも知らずに質問ばかりしていました。これから気を付けます。ありがとうございました。
> DataSelextは私が作った関数名です。
sqlからデータを表示させているのですが。

        If CDbl(Mode) = 1 Then



            Me.TextBox1.Text = Code

            Me.TextBox1.Text = ""
            Me.TextBox2.Text = ""
            Me.TextBox3.Text = ""
            Me.TextBox4.Text = ""

TextBox1.Text = "修正"
            strMode = "修正"
            Sql = ""
            Sql &= "SELECT "
            Sql &= " " & "ID" & ","
            Sql &= " " & "姓" & ","
            Sql &= " " & "名" & ","
            Sql &= " " & "性別"
            Sql &= " " & "From"
            Sql &= " " & "個人情報"
            Sql &= " " & "WHERE"
            Sql &= " " & "("
            Sql &= " " & "ID"
            Sql &= " " & "="
            Sql &= "'" & Mid(CStr(Code), 1, 3) & "'" & ")"
      
            datatable = New DataTable

            If Not dbSelect(Sql, datatable) Then
                MsgBox("Access失敗", MsgBoxStyle.Exclamation, "個人情報修正")
            Else

[ツリー表示へ]