老师：我在做调试一个项目时，有时需要看表的内容，但运作程序后显示不出表的内容，是否是因为窗口程序上有对此表的操作语句？这个表没有在窗口里出现的。要看此表内容只能退出项目重新打开才行，如何解决？
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
加好友 
发短信
Post By：2018/9/19 14:49:00 [只看该作者]
此主题相关图片如下：1.bmp