0

222-225 以下のような 1 つのフィールドにデータベースがあります。関数のその値を読み取るために分割を試みます。単純な関数 a=225 b=222 なら total=(ab)+1 です。ここに私のコード

Dgv.CellClick
'Dim x As Boolean
Dim a As Double
Dim total As Double

a = CDbl(Dgv.Item(8, Dgv.CurrentRow.Index).Value)
Split(a, "-")
total = (a) - (a)
Dgv.Item(9, Dgv.CurrentRow.Index).Value = total

私の問題は、これが機能しないことです。分割した値を取得できません。この問題を解決する方法はありますか?

注：VB.NET 2005を使用しています

4

7 に答える 7

2

あなたが望むならtotal=(a-b)+1..そうあるべきです

dim b = a.Split("-")

total = val(b(1)) - val(b(2)) + 1
于 2013-07-03T03:32:06.003 に答える
1

これは役立つかもしれません。これを試して...

Dim a As String
            a = ""
            Dim x As String
            Dim total As Double
            a = Dgv.Item(8, Dgv.CurrentRow.Index).Value.ToString
            Dim ary() As String
            x = a
            ary = x.Split("-")
            total = CInt(ary(1)) - CInt(ary(0))

            Dgv.Item(9, Dgv.CurrentRow.Index).Value = total
于 2013-07-03T07:06:35.087 に答える
1

他の人が言ったように、次のように配列をSplit()返します。String

Dim SplitValue() As String = Split(a, "-")
total = (CType(SplitValue(1), Double) - CType(SplitValue(0), Double)) + 1
于 2013-07-03T03:39:58.893 に答える
0

これを試して：

Dim aux() As String = a.Split("-"c)

total = CDbl(aux(0)) - CDbl(aux(1)) + 1
于 2013-07-03T05:20:41.500 に答える