|
以下是引用片段：
其关键代码实现如下：
Private Sub UserControl16_Click()
If Me.ddd.TextMatrix(1, 0) = "" Then Exit Sub
Dim i As Long
Dim strZjnr As String
Dim strZjnrAll As String
Dim strDa As String
Dim fs As Integer
'将列表中涉及到的信息进行拼串组卷
'具体拼串方式 根据列表中的每一行里面的题型和数量 从数据库中查找相关的记录 然后将查找出的记录循环拼接
'形成卷子的样式
For i = 1 To ddd.Rows - 1
If Trim(ddd.TextMatrix(i, 0)) <> "" Then
strZjnr = strZjnr & "(" & ddd.TextMatrix(i, 0) & ")" & ddd.TextMatrix(i, 1) & "(" & getString(ddd.TextMatrix(i, 4)) & "):" & vbCrLf & vbCrLf
strZjnrAll = strZjnrAll & "(" & ddd.TextMatrix(i, 0) & ")" & ddd.TextMatrix(i, 1) & "(" & getString(ddd.TextMatrix(i, 4)) & "):" & vbCrLf & vbCrLf
strDa = strDa & "(" & ddd.TextMatrix(i, 0) & ")" & ddd.TextMatrix(i, 1) & "(" & getString(ddd.TextMatrix(i, 4)) & "):" & vbCrLf & vbCrLf
Dim strZjnr1 As String
Dim strZjnrAll1 As String
Dim strDa1 As String
Dim zf As Integer
Call SingZuJuan(ddd.TextMatrix(i, 3), ddd.TextMatrix(i, 4), ddd.TextMatrix(i, 2), strZjnr1, strZjnrAll1, strDa1, zf)
strZjnr = strZjnr & strZjnr1
strZjnrAll = strZjnrAll & strZjnrAll1
strDa = strDa & strDa1
fs = fs + zf
End If
Next
strZjnr = strZjnr & vbCrLf & vbCrLf & "卷子总分:" & fs
strDa = strDa & vbCrLf & vbCrLf & "卷子总分:" & fs
strZjnrAll = strZjnrAll & vbCrLf & vbCrLf & "卷子总分:" & fs
frmJzxx.strZjnr = strZjnr
frmJzxx.strJznrAll = strZjnrAll
frmJzxx.strDa = strDa
'保存组卷信息到数据库中
|