C# と VB.NET の質問掲示板

ASP.NET、C++/CLI、Java 何でもどうぞ

掲示板トップ C# と VB.NET 入門 新規作成 利用方法 ツリー表示 トピック表示 ランキング 記事検索 過去ログ
ログ内検索
  • キーワードを複数指定する場合は 半角スペース で区切ってください。
  • 検索条件は、(AND)=[A かつ B] (OR)=[A または B] となっています。
  • [返信]をクリックすると返信ページへ移動します。
キーワード/ 検索条件 /
検索範囲/ 強調表示/ ON (自動リンクOFF)
結果表示件数/ 記事No検索/ ON
大文字と小文字を区別する

全過去ログを検索

<< 0 >>
■3586 　Re[4]: データ合計数
□投稿者/ JT ＠ -(2006/05/15(Mon) 10:48:22)

    分類:[VB.NET]　

    出来ました！
    trapemiyaさんの１の処理方法でうまくいきました。
    この書き方でおかしくないのかどうかわかりませんが…
    とりあえずうまくいきました。


    '***** 入荷ウェハ状態 ***** 2005/07/11追加
    For intRow = 0 To 24
    e.Graphics.DrawLine(wkPen075, 40, 174 + intRow * 28, 320, 174 + intRow * 28) '間線
    e.Graphics.DrawString(CStr(intRow + 1).PadLeft(2, "0"), prtFont10, Brushes.Black, 46, 154 + 28 * intRow)
    Next
    e.Graphics.DrawLine(wkPen175, 40, 174 + 24 * 28, 320, 174 + 24 * 28) '間線


    sqldata = "SELECT * FROM PC_TBL_実績詳細 " & _
    "WHERE ロットNo = '" & strLotNo & "' " & _
    "ORDER BY ロットNo"

    pgobj.pg_connect() '###DB Connect
    dttbl = pgobj.pg_reader(sqldata, "get").Tables("get")
    pgobj.pg_disconnect() '###DB DisConnect


    i = 0
    imax = dttbl.Rows.Count

    For intRow = 1 To 25
    If i < imax Then
    If dttbl.Rows(i)(1) = intRow And dttbl.Rows(i)(32) = "OK" Then
    e.Graphics.DrawString(dttbl.Rows(i)(6), prtFont12, Brushes.Black, 72, 154 + 28 * intRow - 28)
    e.Graphics.DrawString(dttbl.Rows(i)(7), prtFont12, Brushes.Black, 182, 154 + 28 * intRow - 28)
    e.Graphics.DrawString(dttbl.Rows(i)(8), prtFont12, Brushes.Black, 252, 154 + 28 * intRow - 28)
    PassSUM += dttbl.Rows(i)(6)
    DefSUM += dttbl.Rows(i)(7)
    QualitySUM += dttbl.Rows(i)(8)
    i = i + 1
    ElseIf dttbl.Rows(i)(1) = intRow And dttbl.Rows(i)(32) = "NG" Then
    e.Graphics.DrawString(dttbl.Rows(i)(32), prtFont12, Brushes.Black, 72, 154 + 28 * intRow - 28)
    i = i + 1
    Else
    rect = New Rectangle(40, 146 + 28 * intRow - 28, 30, 28)
    e.Graphics.FillRectangle(Brushes.Black, rect)
    End If
    Else
    rect = New Rectangle(40, 146 + 28 * intRow - 28, 30, 28)
    e.Graphics.FillRectangle(Brushes.Black, rect)
    End If

    Next
    e.Graphics.DrawString(PassSUM, prtFont12, Brushes.Black, 72, 154 + 28 * 26 - 28)
    e.Graphics.DrawString(DefSUM, prtFont12, Brushes.Black, 182, 154 + 28 * 26 - 28)
    e.Graphics.DrawString(QualitySUM, prtFont12, Brushes.Black, 252, 154 + 28 * 26 - 28)


記事No.3555 のレス / END /過去ログ3より / 関連記事表示
削除チェック/

■129 　Re[2]: SQL Server 2005 CLR VB2005 DBアクセス方法
□投稿者/ ろーちゃん -(2007/01/17(Wed) 14:04:20)
    ■No125 (はつね さん) に返信
    > ■No113 (ろーちゃん さん) に返信
    >>SQL Server 2005 CLR ですが VB2005でOleDbConnection.Openできないのですが、、、
    >
    > SQL Server 2005 CLRの中から、SQL Server 2005 CLRが接続できないという意味でしょうか。
    > こけるという事ですが、何がこけるのでしょうか。そのときに表示されるエラーメッセージなどがあったら教えて下さい。
    > 環境作ってやってみればいいのですが、今は手元にないのでよろしくお願いします。

    Partial Public Class SQLCLR
    <SqlFunction()> _
    Public Shared Function HelloSqlClr() As SqlString

    connStr = "Provider=SQLOLEDB.1;Password=xxxxxx;Persist Security Info=True;User ID=sa;Initial Catalog=tbl_1;Data Source=xxxxx"
    m_conn = New OleDbConnection(connStr)
    m_da = New OleDbDataAdapter
    Try
    m_conn.Open()

    ここでCatchに入ります



    > 呼び出し元のSQL Server 2005には、指定したProviderがインストールされていますか？

    localのSQL ServerでやっているのでDBドライバは問題ないと思います



    > マルチポストとの事ですので、全マルチポスト先の間での情報共有（他のポスト先で問題解決の情報が投稿されたり、何か質問を受けて回答した場合に、その他のポスト先に必ず投稿する）をお願いします。
    > 現実世界で、複数の人に個別に問い合わせをしないですよね？
    > もししてしまって、即答がなかったときには随時状況を連絡したりしますよね？
    > ネットでも同じです。
    > # そういった事後活動が面倒なのでマルチポストはやらない方が楽です。

    事は急を要するので、できるだけ大勢の人に見てもらうために、投稿しました。
    CLRにはやり方がさまざまあるようなので、スキルアップという点でも有効だと思います。
    あらゆるところでコテハンでやっているので２ｃｈで匿名で投稿しても投稿内容でばれてしまうことがしばしば・・・
    別の場所では「ろーちゃんて有名」との声も。
記事No.113 のレス /過去ログ10より / 関連記事表示
削除チェック/

■7882 　javascript
□投稿者/ 我王 -(2007/09/18(Tue) 16:56:24)

    分類:[.NET 全般]　

    javascriptで質問お願いします。  
    AJAXです
            contents += "<li><a   href='JavaScript:void(0)' onclick=\"alert('"+ test +"');\">"
              + "</ a></li>";
              testというのは変数でサーバからXMLデータを受け取った値が入っています 'テストデータ'
    　　　　実行するとエラーが返ってきます
    　　　　「終了していない文字列型の変数です」と返ってきます
    　　　　表示される文字をクリックしたらアラーとで testの内容が返ってくるものを試しています。
    下記で実行すると成功します。
     
    　　　　　contents += "<li><a  href='JavaScript:void(0)' onclick=\"alert('テストデータ');\">"
              + "</ a></li>";
    なのでおそらくXMLから返ってくる値の最後に変な文字があると思うんです。なのでその文字を\nなどに変更したらいけるきはするんですけど、
    どう書いたらいいか分かりません。
    お願いいたします
親記事 /過去ログ19より / 関連記事表示
削除チェック/

■34432 　SmtpMailを使用すると迷惑メールになってしまいます…
□投稿者/ ネット系初心者 -(2009/03/29(Sun) 10:28:22)

    分類:[.NET 全般]　

    .net C# (2005)でメール送信をするモジュールを書いたのですが
    System.Web.Mail.SmtpMail.Sendを使用してYahooのメールアドレスに送ると
    「迷惑メール」として扱われてしまいます。

    迷惑メールとして扱われないように送信をする方法はあるのでしょうか…？

    もし、お分かりの方がおられましたら、よろしくお願い申し上げます。
    （メールが送信できるのであればSmtpMailでなくてもかまいません。）


    記述はこのようにしております。
    System.Web.Mail.SmtpMail.Send("システム管理<from@xxx.xx.jp>", "to@yahoo.co.jp", "タイトル", "文章");
親記事 /過去ログ60より / 関連記事表示
削除チェック/

■90102 　Re[2]: DataTableから行を削除する方法
□投稿者/ やまびこ -(2019/02/08(Fri) 20:07:20)
    魔界の仮面弁士さん

    ご回答ありがとうございます。やりたかった事が、下記のサイトのように2つのリストボックスがあり、
    片方から片方へとデータを移動させるということをやりたかったです。
    https://blog.trippyboy.com/2010/c/c%E3%80%80listbox%E3%80%80%E4%BB%96%E3%81%AElistbox%E3%81%B8%E3%81%AE%E7%A7%BB%E5%8B%95/


    ただ、ListBox1はDataTableをセットしています。
    ListBox1.DataSource = DataTable;
    ListBox1.DisplayMember = "ID";

    なので、DataTableからデータを削除する方法が知りたかったです。
    PrimaryKeyは設定していないので、LINQについて調べてみます(こちらは全くやったことがありません)。

    完全にDataTableから除去したいわけではないので、Delete メソッドを試してみます。
    ありがとうございます。
記事No.90100 のレス /過去ログ155より / 関連記事表示
削除チェック/

■90104 　Re[3]: DataTableから行を削除する方法
□投稿者/ 魔界の仮面弁士 -(2019/02/08(Fri) 22:49:16)
    ■No90102 (やまびこ さん) に返信
    > 2つのリストボックスがあり、片方から片方へとデータを移動させる

    データバインドをお使いということであれば、
    それぞれの ListBox に別々の DataTable を用意して、行を移動させる方法と、
    両方の ListBox に同一の DataTable を共有させ、フィルターで絞り込む方法がありますね。


    private void Form1_Load(object sender, EventArgs e)
    {
    　DataTable tbl = CreateSampleTable();

    　tbl.Columns.Add("Selected", typeof(bool));
    　listBox1.DataSource = new DataView(tbl, "ISNULL(Selected, false)=false", "", DataViewRowState.CurrentRows);
    　listBox2.DataSource = new DataView(tbl, "ISNULL(Selected, false)=true", "", DataViewRowState.CurrentRows);
    　listBox1.DisplayMember = listBox2.DisplayMember = "名前";

    　MouseEventHandler MoveItem = (o, arg) =>
    　{
    　　var rowView = ((ListBox)o).SelectedItem as DataRowView;
    　　if (rowView != null)
    　　{
    　　　rowView.BeginEdit();
    　　　rowView["Selected"] = (o == listBox1);
    　　　rowView.EndEdit();
    　　}
    　};
    　listBox1.MouseDoubleClick += MoveItem;
    　listBox2.MouseDoubleClick += MoveItem;
    }

    private static DataTable CreateSampleTable()
    {
    　var tbl = new DataTable("果物");
    　tbl.Columns.Add("名前");
    　tbl.Rows.Add("麝香猫果");
    　tbl.Rows.Add("無花果");
    　tbl.Rows.Add("葡萄柚");
    　tbl.Rows.Add("五歛子");
    　tbl.Rows.Add("鰐梨");
    　tbl.Rows.Add("鳳梨");
    　tbl.Rows.Add("檸檬");
    　tbl.Rows.Add("茘枝");
    　tbl.AcceptChanges();
    　return tbl;
    }
記事No.90100 のレス /過去ログ155より / 関連記事表示
削除チェック/



<< 0 >>
パスワード/

- Child Tree -