VB.NET質問スレ(Part43) [無断転載禁止]©2ch.net

**デフォルトの名無しさん** · 2016/06/15(水) 11:41:09.50

前スレ

VB.NET質問スレ(Part40)
http://toro.2ch.net/test/read.cgi/tech/1365857015/
VB.NET質問スレ(Part41)
http://peace.2ch.net/test/read.cgi/tech/1391334405/
VB.NET質問スレ(Part42)
http://echo.2ch.net/test/read.cgi/tech/1419148239/

**デフォルトの名無しさん** · 2017/11/04(土) 03:32:30.19

すまん
こっちだったわ

Oracle+.NETプログラミング・バイブル―ODP.NETによる強力開発環境単行本 ? 2005/9
日本オラクル (著)

**デフォルトの名無しさん** · 2017/11/04(土) 06:39:10.69

>>791
>>792
ありがとうございます。
早速、買って読んでみます。
古い本でも何でも勉強するしかありません。

10年以上前に導入したVB.netとoracledbのシステムらしいのですが
勉強やテストするテスト環境もありません。
SEもプログラマもいなくなったので誰にも聞けません。

**デフォルトの名無しさん** · 2017/11/04(土) 08:00:52.30

>>791
>>792
もう少し教えてください。

この本に付属しているＣＤＲＯＭには、勉強するための環境一式が含まれているのでしょうか？

またそれらはWindows10でも動くのでしょうか？
Windows7もあるのですが、ハードディスクが30GBしかないです。

本は中古しかなかったので到着には１週間近くかかるようです。

**デフォルトの名無しさん** · 2017/11/04(土) 09:56:42.48

>>794
CD-ROMは使わなかったな

環境はオラクルのホームページからdownloadしたよ（当時は要メール登録、無料）
なんかどれインスコしていいんか分からんかった記憶が…

環境はWindows8か8.1のVb2013
Windows10はわかりません

手さぐり状態の時に先にも書いたように鶴の一声でポシャったｗ

**デフォルトの名無しさん** · 2017/11/06(月) 23:32:40.39

前に勤めていたスーパーの社長に新店オープンの検討会議に出るように言われ、なんで俺のような水産部担当者風情が
そんなのに呼ばれるんだろうと思ったら社長から「お前、面接でプログラミングが趣味って言ってただろ？POSシステム作れや」と
言われ目が点になった。「いえ、自分のはあくまで趣味程度でして」と言ったら「なんだ？嫌なのかぁ」と言われ困惑した。
スーパーのPOSシステムってのは東芝TECのほぼ独占状態で新店オープンなんかだと表現は悪いが吹っ掛けてくるらしく、
営業が一日張り付いただけで本来の料金の他に日当、メシ代、泊まりになった場合はホテル代まで持つのが業界の習慣らしく
300坪程度の店を出すのにPOSレジシステムの構築で一千万近くかかるとか。
それを従業員にやらせれば浮くじゃねえか、と考えたんだろうな。俺は「魚屋がシステム作ったらおかしいでしょ社長！」と逃げ回って
難を逃れたが（逆立ちしても無理っス）
元IBMの営業やってた総務の課長がやらされる羽目になり、開店時には従業員一同社長とこの元IBMを呪ったよＷＷ
開店と同時にレジのおばはん達から「どれもこれも登録されてないじゃん！このバカ！」と怒号が響き、大笑いしていたら
水産物でも加工品のバーコード付きのものが全て「登録無し」と出るとババアどもからレーザービームを浴びて笑ってられなくなった。
元ＩＢＭの課長に文句言ったら「あはは、排他処理だよね、そうか、思い出した」とか言って平然としてるし。

神経が図太くねえとシステム担当なんてやってられないんだろうな

**デフォルトの名無しさん** · 2017/11/07(火) 00:13:22.18

楽しそうな職場やん
絶対に就職したくはないけど

**デフォルトの名無しさん** · 2017/11/07(火) 09:40:10.59

>>796
昔、POS関連の仕事してたことが有ったけど、出来が良ければそのPOSアプリを一般に売れば良いんじゃね。
実際、蕎麦屋が自分の為に作ったPOSアプリ売ってたことが有った。
他にも全然開発会社じゃない所が自分用に作ったPOSアプリの出来が良かったので売ってる事例を幾つか見たことがある。

**デフォルトの名無しさん** · 2017/11/07(火) 10:48:40.44

どう考えても「出来が良ければ」なんて言えない内容だと思うんだが

**デフォルトの名無しさん** · 2017/11/07(火) 11:16:20.50

良くしてくんだよ。
もったいないじゃねーか。

**デフォルトの名無しさん** · 2017/11/07(火) 11:17:26.29

どう考えてもコピペにしか見えんけどググても出てこないから
本当に書いてるんだな。

神経図太いって、それこんな開業も入れない文章書く奴のことだろw

それと、一応昔からTECの他にNCRって会社が大手であったはず。
今は普通にNECや富士通もWindowsやLinuxベースのPOSレジ作ってる

それから、ソフトはその元IBMのオッサンが作るとしてハードはどうしたんだよ。
そのオッサンがハードから作ったのかw
作れる訳ねえだろw
デタラメ書くにも程がある。

**デフォルトの名無しさん** · 2017/11/07(火) 14:52:58.50

EPSONからプリンタとカスタマーディスプレイ買ってパソコンあれば出来る。
ついでに昔は制御方法も教えて貰えた。
他にもシャープとかカシオとかハードだけ買えた気がする。

あと、NCRは日本ではそれほど大手じゃなかった印象だな。
TEC、富士通、NEC、IBMの順ってのが俺の印象。
NCRはその次ぐらい。
あくまで俺の印象だし、今はどうなってるのか知らんけど。

**デフォルトの名無しさん** · 2017/11/07(火) 16:58:21.02

ｃとJavaの開発経験があるけど、．NETで初めて開発刷ることになりました。だいたい３ヶ月やれば開発に参加できますか？

**デフォルトの名無しさん** · 2017/11/07(火) 17:14:10.33

それはあなた自身の学習能力とチームが求める能力の関数でしょう

**デフォルトの名無しさん** · 2017/11/07(火) 17:17:49.65

こんな答えようのない事を他人に尋ねてくる上に、文章の推敲も出来ないやつは
ハナっから開発メンバーに入れたくないな>>803

**デフォルトの名無しさん** · 2017/11/07(火) 17:19:28.20

VBもｃ＃もだいたい似てるよね？

**デフォルトの名無しさん** · 2017/11/07(火) 17:20:06.63

Javaよりもハードルが低いと聞いた。

**デフォルトの名無しさん** · 2017/11/07(火) 19:30:55.43

>>803
ドットネッターて>>804,805みたいな無能ばかりだから3ヶ月どころか3時間あればエースプログラマーになれると思うよ

**デフォルトの名無しさん** · 2017/11/07(火) 19:33:42.48

そうそうその通り！

**デフォルトの名無しさん** · 2017/11/09(木) 06:00:15.14

質問失礼します。

現在、SQLserverからDataReaderにテーブルデータを取得してDataGridViewにテーブルデータを表示させているものがあります。
DataGridViewではなくExcelに出力させて欲しいという要望があり、対応しようとしているのですが、DataRederの内容を2次元配列に入れる事が出来ず困っています。

やりたい事
DataReaderの内容を2次元配列に格納し、指定したExcelファイルに一括で書き込み。

よろしくお願いします。

**デフォルトの名無しさん** · 2017/11/09(木) 07:27:20.45

datatableから出力させた方が楽なんじゃないかな。。

**デフォルトの名無しさん** · 2017/11/09(木) 07:41:04.52

>>811
申し訳ありませんが、やり方を教えて下さい。
現状のコードは
datareader=command.ExecuteReader()
While datareader.read
‘データグリッドビューへ出力
End While
なのですが、AdapterとDatasetを作ってDataTableに格納して、Excel出力するイメージですか？

**デフォルトの名無しさん** · 2017/11/09(木) 10:35:39.05

dataadapter.fill(datatable)じゃダメなの

**デフォルトの名無しさん** · 2017/11/09(木) 12:25:27.97

>>811
>>813
ありがとうございます。希望通り動作させる事が出来ました。
また、よろしくお願いします。

**デフォルトの名無しさん** · 2017/11/09(木) 12:34:04.73

visualstudio2013、.net4.6で、ZipFileクラスは出るのにZipFileExtensionsクラスが出てこないんですが原因わかりませんかね？
参照にSystem.IO.Compression.FileSystem は追加してます。

**デフォルトの名無しさん** · 2017/11/09(木) 21:18:04.53

EditorBrowsable 属性で Never が指定されているからインテリセンスには出てこない
ZipFileExtensions と入力した後に . (ドット)を入力したら出てくるけど、拡張メソッド提供用のクラスなので、
dim archive as ZipArchive
archive.CreateEntryFromFile ( ... )
みたいに拡張メソッドとして使用したほうがいい

**デフォルトの名無しさん** · 2017/11/10(金) 02:14:09.54

約10数年ぶりにこのスレに戻ってきた…
実に.NET1.1以来…

pingクラスを非同期「Ping.SendAsync」で使ってインターネットの速度低下を計測したくて
タイムアウトでイベントを拾いたいんだけど
タイムアウトの時間を20msにしてもタイムアウトイベントが起きない
イベントがcompleteで帰ってくるので21ms以上かかっても正常で戻ってくる

ちなみにdobonでサンプルを参考にした
タイムアウトイベント拾えたひといたらお知恵拝借したい

**デフォルトの名無しさん** · 2017/11/10(金) 02:24:56.30

>>817
https://msdn.microsoft.com/ja-jp/library/ms144961(v=vs.100).aspx
> timeout に指定した数値が非常に小さい場合、timeout のミリ秒数が経過した後に Ping の応答が受信されることもあります。
これじゃない？

**デフォルトの名無しさん** · 2017/11/10(金) 02:32:15.58

>>818
早速サンクスです
どうもこれが原因っぽいですね…
100ms超えるようだとログに残したかったので
毎度応答時間チェックしてみることにします

私事だけどWindows10で.NET1.1が動かないから
昔作った業務アプリを作り直さないといけない…
クリレポ動くんだろうか…

**デフォルトの名無しさん** · 2017/11/10(金) 06:24:47.35

>>816
そういうことだったんですね
ありがとうございます
勉強になりました

**デフォルトの名無しさん** · 2017/11/16(木) 18:56:57.18

暗黙の型変換の挙動ってどこで制御しているんでしょうか

decimal d = 1
String s = "hoge "
s = s & d
この時のdって暗黙の型変換？がされていると思うのですが、
decimalの実装を見てもどこでこの挙動が制御されているのかわかりません

**デフォルトの名無しさん** · 2017/11/16(木) 19:23:05.05

Option Strict のこと？
ttps://msdn.microsoft.com/ja-jp/library/dd314347.aspx

あとはアンパサンドオペレーターあたりじゃない？
ttps://docs.microsoft.com/ja-jp/dotnet/visual-basic/language-reference/operators/concatenation-operator

**デフォルトの名無しさん** · 2017/11/16(木) 21:42:05.23

雑魚プログラマなんだけどプロパティについて聞きたい
普通↓の①の形式だと思うんだけど
似たようなことしたいときに②とか③の形式より①が良いの？

①----------ここから
メンバ変数　_A

プロパティ　A
　’_Aをsetとgetする処理
①----------ここまで

②----------ここから
メンバ変数　_A

プロシージャ　setA（引数B）
　’_Aに引数Bを代入する処理

ファンクション　getA
　’_Aを返す処理
②----------ここまで

③----------ここから
プロパティ　A

プロシージャ　setA（引数B）
　’Aに引数Bを代入する処理

ファンクション　getA
　’Aを返す処理
③----------ここまで

**デフォルトの名無しさん** · 2017/11/16(木) 22:20:14.00

プロパティを宣言すると、コンパイラは中間言語にgetterとsetterのメソッドを作る。だから意味ないです。普通の？の形式を使えばいい。

**デフォルトの名無しさん** · 2017/11/16(木) 22:42:54.96

ありがとう！

**デフォルトの名無しさん** · 2017/11/16(木) 23:32:20.06

パブリックで変数切ればいいんやで

**デフォルトの名無しさん** · 2017/11/17(金) 03:52:39.53

変数切る？

**デフォルトの名無しさん** · 2017/11/17(金) 04:00:16.21

>>821
暗黙の変換やってるのはコンパイラじゃね

>>827
定義するのを(定義)切るとか言うことがあるなぁ。変数切るは変数定義するってことだな
通じる人のほうが多い気がするけど、おっさんだけかもしれんｗ
語源はしらん

**デフォルトの名無しさん** · 2017/11/17(金) 08:09:20.10

おっさんのくせに宣言と定義の違いもわからんのかw

**デフォルトの名無しさん** · 2017/11/17(金) 12:28:53.96

>>829
では変数の宣言と定義の違いを簡単に説明してくれ

**デフォルトの名無しさん** · 2017/11/17(金) 13:19:38.94

>>830
コンパイラのために行うのが宣言
リンカのために行うのが定義
分かれてない言語の場合は宣言と定義を一度に行う

**デフォルトの名無しさん** · 2017/11/17(金) 14:27:37.69

＞リンカのために行うのが定義

ピンとこないな
アロケーションとは違くて？

**デフォルトの名無しさん** · 2017/11/17(金) 19:58:40.60

>>822
ありがとうございます

アンパサンドオペレーターでできるかと思ったのですが、
Stringは継承できないしdecimalは構造体だしでダメっぽいです
諦めました

**デフォルトの名無しさん** · 2017/11/17(金) 20:12:59.46

>>833
何言ってるのかよく分からんけど、.NETのオブジェクトはすべてToStringメソッドを持ってるので、

s &= d
は
s &= d.ToString

と同じ、これはC#でも同じ

**デフォルトの名無しさん** · 2017/11/17(金) 22:15:39.64

&をオーバーロードして、
s &=d　だけで　s &= format(d, "0.00###")
みたいな挙動をさせるのが目的でした

今は確認できないのですが、ToStringをオーバーロードすれば出来るのか後ほど確認してみます
ありがとうございます

**デフォルトの名無しさん** · 2017/11/17(金) 23:09:17.40

>>835
そんなこのできないと思うけどできたとしてもやらない方がいいと思うよ。
コードを読む立場になって考えてみ？

s &=d
が実は、
s &= format(d, "0.00###")
と同じ働きをするって普通は誰も思わないからそのコードを読んだ人（数か月語の書いた本人含む）
は絶対混乱するよ

**デフォルトの名無しさん** · 2017/11/17(金) 23:36:41.99

よろしくない方法だというのは承知しつつ個人用なのでやってみるつもりでした
とはいえそもそも出来ないようで

Stringクラスが継承不可になってるのはそういうのまで考えられてるのかな

**デフォルトの名無しさん** · 2017/11/18(土) 00:42:33.03

それはdの方を独自クラス（構造体）にすれば良いんじゃね

継承出来ないようなら暗黙的に変換できる型を作れば良いんじゃね

**デフォルトの名無しさん** · 2017/11/18(土) 01:55:39.49

ちょっと文字数減らすために変な小細工しない方がいいと思うよ
こんなのせいぜいマジックストリングを無くす程度で十分でしょ

Const DecimalFormat as String = "0.00###"
....
s &= d.ToString(DecimalFormat)

**デフォルトの名無しさん** · 2017/11/18(土) 02:33:59.73

>>834
ちょっと気になったんだが、VB.NETの暗黙の型変換で呼ばれるのは、CType関数じゃないかと
暗黙の変換はStringに限るわけじゃないから、StringのときだけToStrring呼ぶような事はないんじゃね
CTypeは値に忠実に返すべきだが、ToStringは説明的な文字列付加するとかあり得る話だし

**デフォルトの名無しさん** · 2017/11/18(土) 02:55:29.75

>>840
あ、VBの&はC#の+演算子と違って自動的にToString呼ばれないみたいだね。
文字列&hogeの場合はhogeにStringへの暗黙変換が定義されてないとダメなのか

変なところでVBの方が厳しいな
https://msdn.microsoft.com/ja-jp/library/k1a63xkz(v=vs.100).aspx
https://msdn.microsoft.com/ja-jp/library/wfx50zyk(v=vs.100).aspx

**デフォルトの名無しさん** · 2017/11/18(土) 03:49:12.83

勢いで>>838実装してみた
https://ideone.com/l0VRiT

ideoneってVB.NETの動作なんだか怪しいな
バージョンの新しい方はなんだか動かないし、古い方は自動実装プロパティ使えねぇ

一応言っとくけど、たんにDecimalの表示時にフォーマット指定がめんどくさいとか
その程度の理由でやるような事じゃないからな
じゃあ夜中に何やってんだ俺ｗ

**デフォルトの名無しさん** · 2017/11/18(土) 18:33:11.57

>>841
VBの&は文字列連結専用の演算子だからな

実はVBでも+で文字列連結できる
その場合の数値加算か文字列連携かの判断と実行内容がC#と同じかはしらん

まあ、暗黙の変換は予期せぬ結果をまねきかねんから注意しろってことだな

**デフォルトの名無しさん** · 2017/11/22(水) 04:28:34.76

退位の話題がニュースにあったんだけど
.NET1.1で新元号のアップデート来るかな…

**デフォルトの名無しさん** · 2017/11/22(水) 09:57:39.48

1/1付けにしてほしいわ

**デフォルトの名無しさん** · 2017/11/22(水) 10:26:48.94

>>844
元号ってOSから引っ張ってきてるんじゃないかなぁ
OSが対応されればそれで行ける気がするけど、1.1動くOSってどこまでだっけ

未だに1.1のシステム抱えてる身としては他人事ではない

**デフォルトの名無しさん** · 2017/11/22(水) 10:34:35.19

4.0以降のみらしい
https://social.msdn.microsoft.com/Forums/ja-JP/a93ec79d-69a5-4bb7-ae5d-a8aabfdcb9dd/systemglobalizationcultureinfo?forum=netfxgeneralja

**デフォルトの名無しさん** · 2017/11/22(水) 12:20:47.97

3.5は対応してほしい

**デフォルトの名無しさん** · 2017/11/22(水) 12:36:08.14

>>846
Windows10は1.1が動かない（とされてる）
業務ソフト納入してる客先でPC機器類納入してる別の会社が勝手にWindows10に変えようとして
慌てて一台リースを延期してもらった

>>847
2.0でビルドしたものが4.0で動いたというのが興味深い

**デフォルトの名無しさん** · 2017/11/22(水) 16:11:09.79

2.0以降はいちおう上位互換考慮されてるはずだからなぁ

OSもフレームワークもサポート切れだから、アプリもサポートできません
アプリバージョンアップしてください（もちろん有償で！）

こう言って通れば良いんだがなぁ

**デフォルトの名無しさん** · 2017/11/23(木) 15:38:14.38

コマンドプロンプトで実行するプログラムで、C言語のsystem()関数と同様の関数ありますか。
Processクラスは別画面で起動します。同じ画面で実行したいもんで。

**デフォルトの名無しさん** · 2017/11/23(木) 17:04:27.61

>>851
UseShellExecute = False にしてみたら?

**デフォルトの名無しさん** · 2017/12/15(金) 11:44:07.19

Class clsMai
Public Text As String = ""
Public size As Integer = 0
End Class
Dim lm As New List(Of clsMai)
このとき
dim sum as integer = 0
dim dt as new clsMai
dt.text = "aaa"
dt.size= 10
lm.add(dt)
lm.sum += dt.size
最初はListだったんだがSumが追加したい。こういう時にはlmはどういうように定義するのがいい？

**デフォルトの名無しさん** · 2017/12/15(金) 11:55:48.67

Class clschkMai
Inherits List(Of clschkMaisu)
Public sum As Integer
End Class
これで
lm.add(dt)とやるだけで上記のlm.sum+=dt.sizeも行うようにしたいのだがやり方が分からない。

**デフォルトの名無しさん** · 2017/12/15(金) 12:17:45.87

>>854
List<T>を継承じゃなくて中に持つクラスを作るだけでしょ。
あるいはsumを頻繁に使うのでなければ、LINQのSumを使った方が簡単
それと今時変なハンガリアンやめなはれw

Claass MaiList
　　Private _list as New List( Of Mai)
　　Private _sum as Integer = 0;
　　Public Sub Add(x As Mai)
　　　　_list.Add(x)
　　　　_sum +=x.size
　　End Sub
　　Public Property Sum as Integer
　　　　Get
　　　　　　return _sum
　　　　End Get
　　End Property
End Class

**デフォルトの名無しさん** · 2017/12/15(金) 12:57:12.72

おお！！　そういうことか。ありがとう。　addがOverridesできないものかと悩んでた。
clsXXXって書き方は駄目なのか？　何か不都合があるんだろうか？

**デフォルトの名無しさん** · 2017/12/15(金) 13:11:41.44

アッ、駄目だ。継承しないとlm(3).textのようにインデクサでのアクセスができない。

**デフォルトの名無しさん** · 2017/12/15(金) 13:17:15.59

>>857
インデクサ(VBは既定のプロパティと言うと思うけど）も自分で書けばいいんだよそれはwww
簡単でしょw
何でこの程度のことを思いつかないのw

**デフォルトの名無しさん** · 2017/12/15(金) 13:39:16.97

それはできないでしょ。　lm.lst(i).text　みたいになってしまうから。これは面白くない。
lm(i).textにしたいわけだ。

**デフォルトの名無しさん** · 2017/12/15(金) 13:44:55.16

アッ、List(of　ss)ができるのだからできるのか？　できる筈だよな。調べてみる。

**デフォルトの名無しさん** · 2017/12/15(金) 13:47:03.03

解った！！　ありがとう。

**デフォルトの名無しさん** · 2017/12/20(水) 21:39:40.25

ここで聞くのが適切かわからなかったんですが、ご存知の方がおられましたらお教え下さい。

症状
win10のアップデート1703へ更新した直後から、datagridview内への入力時にIMEがオンになっている場合に、最初の入力文字が２つ入力される。バックスペースで消した後は、通常通り入力できる。IMEオフ時の半角は通常通り入力可能。
例えば「は」と入力しようとした場合は「hha」と下線付きで入力されてしまいます。

開発環境では再現しないのですが、何が考えられるでしょうか？
明日、IMEのプロパティのなかの直接入力をしないのチェックを外すのを試して頂く予定ですが、他に何かこうじられる手はありませんでしょうか？

**デフォルトの名無しさん** · 2017/12/20(水) 21:53:14.40

とりあえず使ってるIMEが何か調べる

**デフォルトの名無しさん** · 2017/12/20(水) 23:49:49.75

MSIMEです。

**デフォルトの名無しさん** · 2017/12/22(金) 20:50:18.27

csvから以下の様なデータをよみこんでDataGridViewに、キーが5件以上のレコードだけ表示したいのですが可能でしょうか？

キー,品名,重量,形状
A001,aaa,111,丸
B001,bbb,222,バツ

csvは5000レコード程になります。
キーは700種類くらいです。
宜しくお願いします。

**デフォルトの名無しさん** · 2017/12/22(金) 21:58:13.05

可能です

**デフォルトの名無しさん** · 2017/12/23(土) 05:25:16.08

>>866
教えていただけませんか？

**デフォルトの名無しさん** · 2017/12/23(土) 08:21:17.89

何が分からないんだ？
　CSVファイルを読み込みか？
　GroupByの使い方か？
　5件以上の抽出方法か？
　複数Groupのフラット化か？
　DataSourceプロパティか？

**デフォルトの名無しさん** · 2017/12/23(土) 08:45:58.27

>>868
csvからキーが5件以上重複しているものを抽出する部分です。

**デフォルトの名無しさん** · 2017/12/23(土) 09:20:56.16

同時には無理
まずはCSVから全データを読み込み
そのデータをLinqかなんかで絞り込む
この2つの手順が必要

**デフォルトの名無しさん** · 2017/12/23(土) 11:45:58.00

JETとかACEとかでSQL書けば同時に出来る気がしないでもないがな

**デフォルトの名無しさん** · 2017/12/23(土) 18:30:01.78

>>870
とりあえずcsvをデータテーブルに入れデータグリッドビューに表示は出来るのですが、Linqが難しく書けません。
教えていただけませんか？

5件以下のレコードだけ表示の間違いでした。

**デフォルトの名無しさん** · 2017/12/24(日) 07:37:12.94

「GROUP BY キー」して、「HAVING 5件以下」して、「SelectMany」するだけだろ？
どこが難しいんだ？

**デフォルトの名無しさん** · 2017/12/24(日) 08:51:11.82

結果的に同じになればいいんだったら処理は遅くてもやり方はいろいろあると思う。

**デフォルトの名無しさん** · 2017/12/24(日) 12:14:59.40

>>873
linqで抽出した後に、データグリッドビューに表示が出来なくて何が悪いのか理解できず諦めました。
結局csvに対してsql文を書いて873さんの言う通りGroup ByとHavingで実装いたしました。
お騒がせしてしまい、すみませんでした。

**デフォルトの名無しさん** · 2018/01/08(月) 08:29:11.48

datagridviewで集計処理をやりたいです。
具体的には、項目毎の小計行をdatagridviewへ追加して、最終行に総計を出したいと思っています。

Forループでやってみたのですが、小計行を追加すると最終行が変わってしまい最終行まで処理を行えません。
Doループでやってみようと考えたのですが、最終行判定方法が分かりません。

datagridviewで上記の様な集計を行う方法を教えてください。

**デフォルトの名無しさん** · 2018/01/08(月) 17:50:23.27

データを行追加しながら小計や総計を出せば最終行を気にする必要はないと思いますが

**デフォルトの名無しさん** · 2018/01/08(月) 19:38:43.65

>>877
datatableをバインドしているのですが、datatableから1レコードづつ追加して小計行を入れる感じでしょうか？

**デフォルトの名無しさん** · 2018/01/21(日) 17:49:05.41

＜例１＞
dim a As decimal = "0.12340000"

Console.WriteLine (a)
⇒0.12340000

＜例2＞
dim a As decimal = 0.12340000
Console.WriteLine (a)
⇒0.1234

＜理想＞
dim a As decimal = "0.12340000"

Console.WriteLine (a)
⇒0.1234

理想のように出力させる方法ってないでしょうか

**デフォルトの名無しさん** · 2018/01/21(日) 18:19:11.18

>>879
Console.WriteLine(a.ToString("G29"))
または
Console.WriteLine("{0:G29}", a)

**デフォルトの名無しさん** · 2018/01/21(日) 19:42:04.55

すいません、書き方が悪かったです。

出力させると言うよりは、
dim a As decimal = "0.12340000"
の宣言後にa=0.1234と内部的に認識？させたいです。
文字列変換時のformatは使いたくありません

decimal等に一度キャストして再度decimalに戻せば消えるんでしょうか

**デフォルトの名無しさん** · 2018/01/21(日) 22:12:27.71

むしろ後続のゼロを保持するDecimalで勝手に後ろの0を消す
VBのエディタだかコンパイラだかに問題があるけど

Decimal.Parse(a.ToString("G29"))でもすれば

**デフォルトの名無しさん** · 2018/01/21(日) 22:16:38.18

何が言いたいのか何がしたいのかさっぱりわからんけど、
そもそも文字列リテラルでdecimalを初期化するのが間違ってる

**デフォルトの名無しさん** · 2018/01/22(月) 09:16:19.77

Dim a As String = "0.12340000"
Dim b As Decimal = CDec(a)

これでええで

**デフォルトの名無しさん** · 2018/01/22(月) 20:18:35.99

Decimalって後続ゼロを保持してるとかいう仕様なんだが
実際の小数点以下桁数については、取得するメソッドとかすら用意されてないぽいよな
なんでそんな片手落ちな仕様なんだろ

**デフォルトの名無しさん** · 2018/01/22(月) 21:11:58.46

>>885
これで取得できるみたい

Dim a = Decimal.Parse("0.12340000")
Dim len = Decimal.GetBits(a)(3) >> 16 And &HF
Console.WriteLine(len) ' 8

**デフォルトの名無しさん** · 2018/01/23(火) 21:18:21.91

関係あるようでないけどsqlserverのnumeric型に1とかを格納して1.000000になるのって防げないよね？
Decimalに代入して扱うとずっとゼロが残るもんで
ToString("G29")を全部に書き加えたんだけど、もっと頭の良い方法あったなら死にたい

**デフォルトの名無しさん** · 2018/01/23(火) 21:52:20.10

(1) 必要もないのにDecimalなんか使わない

(2) 必要な精度に合わせて丸めることを覚える（実数型っていうのはそうやって使う）

**デフォルトの名無しさん** · 2018/01/23(火) 22:09:43.15

Oracleだと後続ゼロは勝手に除去するし面倒やね

**デフォルトの名無しさん** · 2018/01/24(水) 01:20:12.88

>>887
SQL ServerのNumeric型は指定精度の固定小数点だし、そんなことになるか？
どうやって取得してるのか、簡単なコードあっぷしてくれ

**デフォルトの名無しさん** · 2018/01/25(木) 21:17:36.29

すんません、.net nativeってどうなったんですかね？