チェックディジットの計算をする必要があるので、出し方を調べて書いてみた。 Dim SummaryValue As Integer = 0 Dim ResultValue As Integer Dim SourceLength As Integer = Source.Length - 1 Dim ReversedPos As Integer For i As Integer = 0 To SourceLe…

某N社を100株購入。もうすこし落ちるかと思ったけど、我慢しきれず。 先週末の時点で買っておくのが正解だった。このまま騰がりつづけてくれ。

一旦DataAdapterを使ってFillしたDataSetオブジェクトを初期化せずに利用し続けると、Fillのたびに新しい条件で増えたレコードが追記されていることに気づいた。そういうものなのね。気づいた原因は、最初に全件を持ってきたあとで、GUIから条件を絞り込んで…

12月一杯かな＞大阪。風邪で苦しい。