VB.net類的問(wèn)題?報(bào)錯(cuò)說(shuō)是應(yīng)為語(yǔ)句結(jié)束。一處在Get_SumMoney()一處在Conn() 求解呀

這樣看是看不出來(lái)的，因?yàn)椴皇沁壿嬓藻e(cuò)誤，是運(yùn)行的時(shí)候報(bào)錯(cuò)吧。交給你一個(gè)方法，在有問(wèn)題的哪個(gè)函數(shù)第一行設(shè)置斷點(diǎn)，然后運(yùn)行程序，程序就會(huì)停在斷點(diǎn)處，然后按f8鍵，一行一行運(yùn)行，看看哪行出了問(wèn)題。在出問(wèn)題的行那里，查看前后的變量值

成都創(chuàng)新互聯(lián)公司長(zhǎng)期為上千多家客戶提供的網(wǎng)站建設(shè)服務(wù)，團(tuán)隊(duì)從業(yè)經(jīng)驗(yàn)10年，關(guān)注不同地域、不同群體，并針對(duì)不同對(duì)象提供差異化的產(chǎn)品和服務(wù)；打造開放共贏平臺(tái)，與合作伙伴共同營(yíng)造健康的互聯(lián)網(wǎng)生態(tài)環(huán)境。為達(dá)茂旗企業(yè)提供專業(yè)的網(wǎng)站制作、網(wǎng)站建設(shè)，達(dá)茂旗網(wǎng)站改版等技術(shù)服務(wù)。擁有十余年豐富建站經(jīng)驗(yàn)和眾多成功案例,為您定制開發(fā)。

如果是沒運(yùn)行就報(bào)錯(cuò)，

dt Get_SumMoney() 這里有錯(cuò)誤 vb.net 函數(shù)返回類型應(yīng)該是類似這樣 Get_SumMoney() as dt

conn那里也是這樣的語(yǔ)法錯(cuò)誤。 你這個(gè)是不是從C# 變換過(guò)來(lái)的代碼啊

用VB.NET程序編寫代碼

Delphi代碼如下：

procedure?TForm1.Button1Click(Sender:?TObject);

var

購(gòu)物總價(jià):Integer;

折扣:Extended;

begin

購(gòu)物總價(jià):=StrToInt(Edit1.Text);

if?購(gòu)物總價(jià)250?then

begin

折扣:=0;

end

else?if?購(gòu)物總價(jià)500?then

begin

折扣:=0.05;

end

else?if?購(gòu)物總價(jià)1000?then

begin

折扣:=0.075;

end

else?if?購(gòu)物總價(jià)2000?then

begin

折扣:=0.1;

end

{

此段的折扣是多少？

else?if?購(gòu)物總價(jià)3000?then

begin

折扣:=0.05;

end

}

else?if?購(gòu)物總價(jià)=3000?then

begin

折扣:=0.15;

end;

ShowMessage('您享受的折扣是：'+FloatToStr(折扣)

+'?原價(jià)：'+IntToStr(購(gòu)物總價(jià))

+'?折后總價(jià)：'+FloatToStr(購(gòu)物總價(jià)*(1-折扣)));

end;

下列 是屬于VB.NET合法的變量名 A.Home B.@EMail C.Integer D.$money

A：合法的變量名首字符是大小寫的英文字母，后面跟字每或數(shù)字等。

vb.net在數(shù)組定義中如何使用復(fù)合數(shù)據(jù)類型

你可以用結(jié)構(gòu)數(shù)組的,如下:

...

Private Structure test

Dim name As String

Dim sex As String

Dim age As Integer

Dim salary As Integer

End Structure

Dim list(2) As test

Private Sub insert()

list(0).name = "張三"

list(0).age = "20"

list(0).salary = "1500"

list(0).sex = "男"

list(1).name = "李四"

list(1).age = "21"

list(1).salary = "1500"

list(1).sex = "女"

End Sub

...

你可以放到main()里輸出一下，就是這樣...

vb.net 如何把大寫金額轉(zhuǎn)換成阿拉伯?dāng)?shù)字金額？

Private Sub Text2_Change() '大寫金額轉(zhuǎn)換成阿拉伯?dāng)?shù)字金額

Dim i As Integer

Dim j As Integer

Dim myint As Integer

Dim myint1 As Integer

Dim mydoub As Double

Dim mystr As String

Dim mystr1 As String

Dim mystr2 As String

Dim mystr3 As String

Dim mystr4 As String

Dim money As Long

Dim money1 As Integer

Dim money2 As Long

mystr = Text2.Text

myint = InStr(mystr, ".")

If myint = 0 Then

mystr = Text2.Text

Else

mystr3 = Right(Text2.Text, Len(Text2.Text) - myint)

If mystr3 "" Then '轉(zhuǎn)換小數(shù)位

mystr4 = Left(mystr3, 1)

mystr3 = Right(mystr3, Len(mystr3) - 1)

If mystr4 "0" Then

mystr2 = mystr2 + setdata(Val(mystr4)) + "角"

End If

If mystr3 "" Then

mystr4 = Left(mystr3, 1)

mystr2 = mystr2 + setdata(Val(mystr4)) + "分"

End If

End If

mystr = Left(Text2.Text, myint - 1)

End If

j = Len(mystr)

For i = 1 To Len(mystr) '轉(zhuǎn)換整數(shù)位

money2 = Left(mystr, i)

money1 = Right(money2, 1)

If money1 = 0 Then

If j = 5 Then

If Right(mystr1, 1) "萬(wàn)" Then mystr1 = mystr1 "萬(wàn)"

Else

If Right(mystr1, 1) "零" And Right(money, j) 0 Then mystr1 = mystr1 "零"

End If

Else

mystr1 = mystr1 setdata(money1) + chang(j)

End If

j = j - 1

Next i

Text1.Text = mystr1 "元" mystr2 '顯示大寫

End Sub

當(dāng)前名稱：包含vb.netmoney的詞條
當(dāng)前網(wǎng)址：http://www.yijiale78.com/article16/dsgoddg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站建設(shè)、網(wǎng)站內(nèi)鏈、軟件開發(fā)、手機(jī)網(wǎng)站建設(shè)、建站公司、靜態(tài)網(wǎng)站

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)