你好。
为什么FetchData只触发一次呢?
没有被多次触发呢?
Private Sub rptBarcodeZichan_FetchData(ByVal sender As Object, ByVal eArgs As DataDynamics.ActiveReports.ActiveReport.FetchEventArgs) Handles MyBase.FetchData
Try
If p_TotalCount <> lngTotalCount Then
If objDR.Read() Then
Fields("SKU").Value = objDR("SKU").ToString()
Fields("storeName").Value = objDR("storeName").ToString()
Fields("syohinName").Value = objDR("syohinName").ToString()
Fields("syohinXing").Value = objDR("syohinXing").ToString()
Fields("syohinBaoguan").Value = objDR("syohinBaoguan").ToString()
lngTotalCount = lngTotalCount + 1
eArgs.EOF = False
Else
eArgs.EOF = True
End If
Else
eArgs.EOF = True
End If
Catch ex As Exception
clsErrLog.OutputErrLog(REPORT_NAME, ex.TargetSite.Name, _
ex.StackTrace.Substring(ex.StackTrace.LastIndexOf(":"c) + 1), ex.Message)
End Try
End Sub |
|