这样看是看不出来的，因为不是逻辑性错误，是运行的时候报错吧。交给你一个方法，在有问题的哪个函数第一行设置断点，然后运行程序，程序就会停在断点处，然后按f8键，一行一行运行，看看哪行出了问题。在出问题的行那里，查看前后的变量值
成都创新互联公司长期为上千多家客户提供的网站建设服务，团队从业经验10年，关注不同地域、不同群体，并针对不同对象提供差异化的产品和服务；打造开放共赢平台，与合作伙伴共同营造健康的互联网生态环境。为达茂旗企业提供专业的网站制作、网站建设，达茂旗网站改版等技术服务。拥有十余年丰富建站经验和众多成功案例,为您定制开发。
如果是没运行就报错，
dt Get_SumMoney() 这里有错误 vb.net 函数返回类型应该是类似这样 Get_SumMoney() as dt
conn那里也是这样的语法错误。 你这个是不是从C# 变换过来的代码啊
Delphi代码如下：
procedure TForm1.Button1Click(Sender: TObject);
var
购物总价:Integer;
折扣:Extended;
begin
购物总价:=StrToInt(Edit1.Text);
if 购物总价250 then
begin
折扣:=0;
end
else if 购物总价500 then
begin
折扣:=0.05;
end
else if 购物总价1000 then
begin
折扣:=0.075;
end
else if 购物总价2000 then
begin
折扣:=0.1;
end
{
此段的折扣是多少？
else if 购物总价3000 then
begin
折扣:=0.05;
end
}
else if 购物总价=3000 then
begin
折扣:=0.15;
end;
ShowMessage('您享受的折扣是：'+FloatToStr(折扣)
+' 原价：'+IntToStr(购物总价)
+' 折后总价：'+FloatToStr(购物总价*(1-折扣)));
end;
A：合法的变量名首字符是大小写的英文字母，后面跟字每或数字等。
你可以用结构数组的,如下:
...
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()里输出一下，就是这样...
Private Sub Text2_Change() '大写金额转换成阿拉伯数字金额
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 '转换小数位
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) '转换整数位
money2 = Left(mystr, i)
money1 = Right(money2, 1)
If money1 = 0 Then
If j = 5 Then
If Right(mystr1, 1) "万" Then mystr1 = mystr1 "万"
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
重庆分公司
重庆分公司
