UC知道帮我翻译一段程序，最好能逐行翻译
来源：百度知道 编辑：UC知道 时间：2024/05/13 16:59:33
如题，程序是这样的：
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 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
你的程序看来只是其中的一部分，有一些调用的函数没有给出。看题目，编辑记录，如果记录行数大于1，则改为编辑模式，intCount表示记录行数，显示frmMaterln1窗口，调用showdate,调用movcursor（）方法，如果记录行数小于等于1，调用recordAdd()-应该是增加记录的方法。综上，如果你把其他部分都贴上来会看得更直观一些，我只是通过看你这部分程序段分析的，如果有问题，请见谅！