因為datagrid中的數據只是臨時使用,所以沒有連接數據庫,怎麼樣才能把我要的值賦值到我要的列,有多行
例如,有Trim(varData(1)) 字串,Trim(varData(2))....,Trim(varData(6))....;我想數據直接在datagrid中顯示,不必通過綁定資料表
所以 grd.dataSource 我沒指定
資料是 而是從主機下載的字串
我把6個字串 Trim(varData(1)),Trim(varData(2)),...,Trim(varData(6)) 要存入grd (是datagrid控制項名稱)
我grd.Refresh 之後仍舊 沒看到資料 (指令也沒有報錯)
所以 下方 我有註明 "<-- 我懷疑 這行有錯"
麻煩各位看看 錯在那?
謝謝了!!
----以下是相關的 程序碼 ------------------------------
SrvTag = "SendLog_Sms.asp"
SrvTag = SrvTag & "?UID=" & objSys.UrlEncodeUTF8(UserID)
SrvTag = SrvTag & "&Pwd=" & objSys.UrlEncodeUTF8(UserPwd)
SrvTag = SrvTag & "&SDate=" & objSys.UrlEncodeUTF8(strSDate)
SrvTag = SrvTag & "&EDate=" & objSys.UrlEncodeUTF8(strEDate)
strRet = XmlHTTP(SrvTag)
varRet = Split(strRet, "`")
j = 0
If varRet(0) = "0" Then
ReDim aryMsg(0)
For i = 1 To UBound(varRet) - 1
varData = Split(varRet(i), "#")
strMsg = varData(2)
strMsg = Replace(strMsg, "\n", vbCrLf)
ReDim Preserve aryMsg(i)
aryMsg(i) = strMsg
'程式產生表格
With grd
.Row = j <--我懷疑 這行有錯
j = j + 1
.Columns(1).Text = Trim(varData(1)) <--我懷疑 這寫法有錯
.Columns(2).Text = Trim(varData(6))
.Columns(3).Text = Trim(varData(2))
.Columns(4).Text = Trim(varData(3))
.Columns(5).Text = Trim(varData(4))
.Columns(6).Text = Trim(varData(5))
End With
DoEvents
Next i
End If
grd.Refresh