关于MSHFlexGrid控件复用问题

jsjjms jsjjms 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
最近在开发一个报税软件,里面用到了MSHFLexGrid控件。

过程是这样的,第一次从数据库里取得数据然后使用 AddItem方法 一项一项插入表格里。一点问题都没有。

数据显示完毕会进行一系列的选择后,然后将MSHFlexGrid控件复用,刷新后只显示选择后的数据。但奇怪的是

刷新后控件里面只显示TextMatrix设定的表格头,对于新AddItem加载的数据都无法显示。复用的时候的代码是:



Dim i As Integer
For i = 1 To iRowsNo - 1 'iRowsNo 是全局变量,表示当前有多少列数据需要显示
DataTable.RemoveItem 1 '这里的目的将原来显示的数据清空掉
Next i
InitFields '使用TextMatrix设置显示表格头
ShowData GetDataFromCart 'showData 是显示数据的函数 GetDataFromCart取数据库得到数据



'这里将ShowData的实现也贴出来了。
Private Function ShowData(Jobs() As JobInvTemp)
Dim row As String
Dim i As Integer
i = 0
Do While (Jobs(i).Job <> "NULL")

row = "" & vbTab & iRowsNo & vbTab & Jobs(i).Job & vbTab & Jobs(i).JobDate & vbTab & Jobs(i).Price & vbTab & Jobs(i).GST
DataTable.AddItem row, iRowsNo
iRowsNo = iRowsNo + 1
i = i + 1
Loop
End Function


因为对这个控件很不熟悉,所以实在查不出来到底出什么问题了。
请大家帮帮忙,谢谢了。

...全文

相关推荐

评论 18
收藏 已收藏
分享
返回顶部
jsjjms
控件 1,453 成员 41,351 内容