关于某VB源码中的“gintMode = Edit”

来源：百度知道编辑：UC知道时间：2024/05/21 08:03:25

编译时提示“变量未定义”。部分源码如下：
Public Sub RecordEdit()
Dim intCount As Integer

If msgList.Rows > 1 Then
gintMode = Edit '就是这里出错
intCount = msgList.Row
gsSql = " where rkno='" & Trim(msgList.TextMatrix(msgList.Row, 1)) & "'"
frmMaterIn1.Show 1
ShowData
Call MovCursor(intCount, msgList)
Else
Call RecordAdd
End If
End Sub
是一个物资管理系统的。想知道应如何修改？不要敷衍我让我定义Edit，我知道怎样定义还用问么？

这段代码有很多错误.
但是程序只能走到你出错的地方.
你给gintMode赋值为Edit,问题是你在声明没有声明此Edit,在此过程中你也没有另外声明,程序无法获知Edit,所以才报错的.
你在出错的那句话上面写个MSGBOX "Edit=" & Edit
然后看看是否给它赋过值了.
另外要修改的话你最好把大概功能说明下.

关于某VB源码中的“gintMode = Edit” 关于软件VB源码（高分）关于VB中的VAL 关于 VB 中的 textbox 关于vb 中的按钮关于VB中的比较 VB下载+VB源码下载什么是VB源码高分求VB源码 vb源码问题求助