UC知道VB 里报错,提示必选参数,怎么修改?急
来源：百度知道 编辑：UC知道 时间：2024/05/28 10:55:24
Private Sub cmdOk_Click()
Dim i As Integer
Dim price As Integer
Dim stock As Integer
Dim str1 As String, str2 As String
Dim kind As String
For i = 1 To intcountofgoods
Get #2, i, goodsl
Txttemp.Text = goodsl.strgoodsno
str1 = Trim(Txttemp.Text)
Txttemp.Text = goodsl.strgoodsname
str2 = Trim(Txttemp.Text)
price = goodsl.intprice
stock = goodsl.intstock
kind = Trim(goodsl.strkind)
Str = str1 & Space(5) & str2 & Space(5) & price & Space(5) & kind & Space(5) & stock
lstgoods.Clear
If Option1.Value = True Then
lstgoods.AddItem Str
ElseIf Option2.Value = True Then
If stock = 0 Then
lstgoods.AddItem Str
End If
Else
If Option4.Value = True Then
If str1 = Trim(Combo1.Text) Then
lstgoods.AddItem Str
End If
ElseIf Option5.Value = True Then
If str2 = Trim(Combo2.Te
Dim i As Integer
Dim price As Integer
Dim stock As Integer
Dim str1 As String, str2 As String
Dim kind As String
For i = 1 To intcountofgoods
Get #2, i, goodsl
Txttemp.Text = goodsl.strgoodsno
str1 = Trim(Txttemp.Text)
Txttemp.Text = goodsl.strgoodsname
str2 = Trim(Txttemp.Text)
price = goodsl.intprice
stock = goodsl.intstock
kind = Trim(goodsl.strkind)
Str = str1 & Space(5) & str2 & Space(5) & price & Space(5) & kind & Space(5) & stock
lstgoods.Clear
If Option1.Value = True Then
lstgoods.AddItem Str
ElseIf Option2.Value = True Then
If stock = 0 Then
lstgoods.AddItem Str
End If
Else
If Option4.Value = True Then
If str1 = Trim(Combo1.Text) Then
lstgoods.AddItem Str
End If
ElseIf Option5.Value = True Then
If str2 = Trim(Combo2.Te
str是vb的内置函数
返回数字的 String 表示形式。
Public Shared Function Str(ByVal Number As Object) As String
参数
Number
必选项。包含任何有效的数值表达式的 Object。
Str是VB关键字，不能用这个作为变量名，把所有的Str改一下名就行。