![](uploadface/185_20093291620566172.jpg)
加好友 发短信
等级:超级版主
帖子:4109
积分:23338
威望:0
精华:21
注册:2008/9/1 20:07:00
|
Post By:2009/9/10 12:50:00 [只看该作者]
以下是引用czy在2009-9-10 12:39:00的发言:我做了下修改,7个窗口合成到一个窗口中。 解决一路No后f3窗口只显示一个点的问题。
代码其实很简单的,增加一个全局变量。 yes代码改成: Vars("val") = Vars("val") + 1 if Vars("val") = 1 Then DataTables("s").DataRows.Clear() dim f As New Filler f.SourceTable = DataTables("sk") '指定数据来源 f.DataTable = DataTables("s") '指定数据接收表 f.Filter = "[一] Is Not Null" f.Fill() '填充数据 e.Form.BackGroundImageFile = "c" & Vars("val")+1 & ".jpg" Else e.Form.BackGroundImageFile = "c" & Vars("val")+1 & ".jpg" Dim s As String = "○一二三四五六七".Chars(Vars("val")) DataTables("s").DeleteFor(s & " Is Null") if Vars("val") = 7 Then Forms("f3").Show() e.Form.Close() End If End IfNo代码同理。
有空学习研究一下,谢谢C版,果然是引来玉了,呵呵
|
|