'On Error GoTo Msg
Dim rsTemp As New ADODB.Recordset, rsTempTotal As New ADODB.Recordset
Dim strSql As String
Dim conn As New dataconn
Dim i As Long
Dim k As Integer
TDBGrid2.EditActive = False
TDBGrid2.MarqueeStyle = 4
TDBGrid2.AllowUpdate = False
rsTemp.CursorLocation = adUseClient
strSql = "EXEC STKD_P_LIST 1"
conn.execute strSql
Set rsTemp = conn.Recordset
Set TDBGrid2.DataSource = rsTemp
k = rsTemp.RecordCount
Exit Function
Msg:
MsgBox Err.Description, vbCritical, "提示"
k里面有行數，證明里面有資料，例如是3
但是系結后顯示3行空白，沒有顯示資料。
不知道哪里設定有問題
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/129704.html