- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]在开发版面上表内容显示不出来？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=125077)
-- 发布时间：2018/9/19 14:49:00
-- [求助]在开发版面上表内容显示不出来？
老师：我在做调试一个项目时，有时需要看表的内容，但运作程序后显示不出表的内容，是否是因为窗口程序上有对此表的操作语句？这个表没有在窗口里出现的。要看此表内容只能退出项目重新打开才行，如何解决？
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:\\股票分析数据\\个股数据\\" & 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
-- 发布时间：2018/9/19 14:53:00
--
此主题相关图片如下：1.bmp
-- 发布时间：2018/9/19 16:39:00
--
你是不是写了这种代码？这个代码是执行了会空白的，要用 ResumeRedraw 恢复才行
Tables("个股行情").StopRedraw
-- 发布时间：2018/9/19 17:50:00
--
谢谢了