发表于:2007-03-15 14:16:00
6楼
Public Function g_SendCellCurrent(nRow As Integer, nCol As Integer) As Boolean
On Error GoTo err
g_SendCellCurrent = False
Dim strRow As String
Dim strCol As String
Dim strDataPoint As String
strRow = Format(nRow, "0#")
strCol = Format(nCol, "0#")
strDataPoint = g_strPrefix & "GCS_P" & strCol & "_W" & strRow & "_CURRENTSP"
WriteValue str(g_RequiredCurrentArray(nRow, nCol)), strDataPoint
If g_SelectStatusArray(nRow, nCol) = True Then
g_SelectStatusArray(nRow, nCol) = False
g_ShowPicture
End If
g_SendCellCurrent = True
Exit Function
err:
MsgBox err.Description
End Function
这样能写,但是我的数据量很大,包括实时读的上来,速度好慢呀