主题：请教cb1518老师
liweifan
[专家分：0] 发布于 2008-08-30 18:47:00
如何对多个以日期为名称的库表(.dbf)进行选择处理!
如有以下的库表文件,是按日期起名的
200701.dbf
200702.dbf
200703.dbf
.......
200712.dbf
我想建一个列表框list1显示以日期起名的所有库表文件,再建一个表格框Grid1用来显示在list1中选择的表(.dbf)记录,并能对所选择的表作修改.删除等记录处理.这个问题好长时间没法解决,想请教cb1518老师,望给予指导,多谢!!!
回复列表 （共4个回复）
沙发
cbl518 [专家分：57140] 发布于 2008-09-01 08:26:00
请你将你要解决的问题，分成一条条写清楚好吗？
板凳
martine [专家分：4950] 发布于 2008-09-01 09:57:00
列表框的属性中rowsource=200*.dbf,rowsourcetype=7 文件 则可以列出你这些文件.
关于表格我的思路是: 点了list中的数据源后,确认,则显示表格同时装入响应的数据.应该不难吧.在list 的gotfocus event 或其他事件中激活表格.我过去的做法是选了一个数据表后,点确认键再激活grid
3 楼
qjbzjp [专家分：8830] 发布于 2008-09-01 13:29:00
刚从cbl518老师那里学到从当前目录下得到文件的代码。
试试是要这样的效果吗？
表单的load事件中放入
CREATE CURSOR tabl0(lj c(18))
ADIR(aLj,"200*.dbf")
INSERT INTO tabl0 FROM ARRAY aLj
在表单的init事件中放入
SELECT tabl0
FOR i=1 to RECCOUNT()
GO i
thisform.combo1.AddItem(ALLTRIM(lj))
next
在表单的Combo1的InteractiveChange事件中放入：
SELECT tabl0
thisform.grid1.RecordSourceType= 0
thisform.grid1.RecordSource=this.Value
4 楼
cbl518 [专家分：57140] 发布于 2008-09-01 13:54:00
用二楼的方法，代码可以：
在表单的 Combo1 的 Init 事件中放入：
this.RowSource="c:\temp\200*.dbf"
this.RowSourceType= 7
在表单的 Combo1 的 InteractiveChange 事件中放入：
WITH thisform.grid1
.ColumnCount=-1
.RecordSourceType= 0
.RecordSource=this.List[2,1]-this.Value
ENDWITH
我来回复
您所在位置：