老师:我在做调试一个项目时,有时需要看表的内容,但运作程序后显示不出表的内容,是否是因为窗口程序上有对此表的操作语句?这个表没有在窗口里出现的。要看此表内容只能退出项目重新打开才行,如何解决?
DataTables("个股行情").DataRows.Clear()
Dim zqdm As String = dr("证券代码")
If dr("剩余数量") <> 0 Then
If zqdm.SubString(0,1) = "0" Or zqdm.SubString(0,1) = "3" Or zqdm.SubString(0,1) = "6" Then
' Tables("个股行情").StopRedraw
Dim strs As String = FileSys.ReadAllText("d:\股piao分析数据\个股数据\" & zqdm & ".txt")
strs = strs.Replace(vblf,"")
Dim rs() As String = strs.Split(vbcr)
For i2 As Integer = 0 To rs.Length - 10
Dim cs() As String = rs(i2).Split(vbtab)
If CDate(cs(0)) = RQ(i) Then
Dim hqdr As DataRow = DataTables("个股行情").Addnew()
hqdr("日期") = cs(0)
hqdr("开盘") = cs(1)
hqdr("最高") = cs(2)
hqdr("最低") = cs(3)
hqdr("收盘") = cs(4)
hqdr("成交量") = cs(5)
hqdr("成交额") = cs(6)
End If
Next
' Tables("表A").ResumeRedraw
Else
dr("收盘价") = 1
End If
Else
dr("收盘价") = 0
End If