英语翻译如题,程序是这样的:Public Sub RecordEdit()Dim intCount As IntegerIf msgList.Rows > 1 ThengintTmode = EDITintCount = msgList.RowgsSql = " where rkno='" & Trim(msgList.TextMatrix(msgList.Row,1)) & "'"frmMaterIn1.Show 1ShowDataCall
来源:学生作业帮助网 编辑:六六作业网 时间:2025/01/19 14:33:11
英语翻译如题,程序是这样的:Public Sub RecordEdit()Dim intCount As IntegerIf msgList.Rows > 1 ThengintTmode = EDITintCount = msgList.RowgsSql = " where rkno='" & Trim(msgList.TextMatrix(msgList.Row,1)) & "'"frmMaterIn1.Show 1ShowDataCall
英语翻译
如题,程序是这样的:
Public Sub RecordEdit()
Dim intCount As Integer
If msgList.Rows > 1 Then
gintTmode = 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
英语翻译如题,程序是这样的:Public Sub RecordEdit()Dim intCount As IntegerIf msgList.Rows > 1 ThengintTmode = EDITintCount = msgList.RowgsSql = " where rkno='" & Trim(msgList.TextMatrix(msgList.Row,1)) & "'"frmMaterIn1.Show 1ShowDataCall
你的程序看来只是其中的一部分,有一些调用的函数没有给出.看题目,编辑记录,如果记录行数大于1,则改为编辑模式,intCount表示记录行数,显示frmMaterln1窗口,调用showdate,调用movcursor()方法,如果记录行数小于等于1,调用recordAdd()-应该是增加记录的方法.综上,如果你把其他部分都贴上来会看得更直观一些,我只是通过看你这部分程序段分析的,如果有问题,请见谅!