Private Sub Form_Load() Dim sql As String Dim sdata(1 To 15, 1 To 14) As Variant Dim rs As New Recordset Dim cn As New ADODB.Connection cn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=sample;Data Source=." sql = "Select sdatetime,data from udata" 's = "Select sdatetime,data from udata" 'Set rs = GetRs(s) rs.Open sql, cn, adOpenStatic, adLockReadOnly
If rs.RecordCount = 0 Then Exit Sub ReDim ss(rs.RecordCount)
ÈçºÎÔÚdatagridviewµÄ×îºóÒ»ÐÐ×öijÁÐÖµµÄºÍ»òÊdz˻ý¡£Òª¼ÆËã3¡¢4¡¢5Áи÷ÁеĺÍ, Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click &nbs ......