Технологические аспекты разработки ПО АСОИУ. - 36 стр.

UptoLike

ВУЗ: 

ТТИ ЮФУ | Таганрог

Рубрика: 

38
Set Adodc1.Recordset = rs
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
Dim i As Integer, j As Integer
Dim mfldcount
Dim k As Boolean
Dim s As String
rs.MoveLast
rs.MoveFirst
mreccount = rs.RecordCount
Me.lblrecordcount = "Total:" & mreccount
mfldcount = rs.Fields.Count
Dim msubscript As Integer
j = 0
For i = 0 To UBound(gstrFieldsOrig) - 1
s = gstrFieldsOrig(i, 1)
If s = gTableName Then
Exit For
End If
j = j + 1
Next
msubscript = j
gstrFieldsOrig(msubscript, 2) = ""
k = False
For i = 0 To mfldcount - 1
s = rs.Fields(i).Type
If Len(s) < 3 Then
s = s & "XX"
End If

Страницы