共19 条记录, 每页显示 10 条, 页签: [1] [2]

标题：帮我看一个代码.

1楼

布莱克朱 发表于：2011/11/11 22:03:00

我在项目属性的中CurrentTableChanged中设置了这样一个代码.

Select Case CurrentTable.DataTable.Name
Case "商品档案","客户档案","供应商档案","销售人员档案","小区档案","标准价格表","采购单","促销价格表","促销套餐价格","销售订单","潜在客户","交款日报","厂家返利登记表","采购合同","请购单","仓库档案","精加工费用","安装费类别"
Dim Name As String
For Each dc As Col In CurrentTable.Cols
If dc.DataCol.IsDate Then
Tables("查询").Cols("查询内容").DropForm = "万年历"
End If
Name = Name & dc.name & "|"
Tables("查询").Cols("查询项目").Combolist= Name
Next
For Each dr As Row In Tables("查询").Rows
If dr("比较") <>"" Or dr("查询内容")<>"" Then
dr("对应表")= CurrentTable.DataTable.Name
Else
dr("对应表")=""
End If
Next
意思是切换到这个当前表有一个筛选的窗口表里面的表名自动加载当前表的表名,但问题是,我现在有几十个表名,一一写出来太多了,有没有简单的写法?

2楼

布莱克朱 发表于：2011/11/11 22:17:00

也就是不用指定表名

3楼

程兴刚 发表于：2011/11/11 22:23:00

您累不累呀！

这样的设计思路应该有问题，详细说明一下，最好发一个实例文件！

4楼

blackzhu 发表于：2011/11/12 7:46:00

这样做自然有我的的道理,我是一个窗口表利用代码可以切换很多表(是主表),但是这个表我要添加一个自定义筛选,每一次这个筛选窗口,筛选窗口里面的表名就会自动为当前要筛选表的表名.

5楼

xmj09663 发表于：2011/11/12 8:06:00

Dim lm As String
For Each dc As DataCol In DataTables(CurrentTable.Name).DataCols
lm = lm & "|" & dc.Name
Next
Tables("过滤查询_Table1").Cols("查询项目").Combolist = lm

6楼

blackzhu 发表于：2011/11/12 8:27:00

我不是要找列名,列名根据表名生成,我是要找表名,上面的代码可以执行,但是写几十个表名,有点?

7楼

狐狸爸爸 发表于：2011/11/12 8:28:00

5楼正解的，既然你是处理当前表，你要判断表名干什么？

8楼

blackzhu 发表于：2011/11/12 8:39:00

不是的狐爸,我的筛选窗口,里面有一个窗口表,这个窗口表里面有一个字段是表名.我要在当前表打开这个筛选窗口时这个字段自动加载这个当前表的表名.

9楼

blackzhu 发表于：2011/11/12 8:43:00

For Each dr1 As DataRow In Tables("查询").DataTable.DataRows

If dr1("查询项目") <> Nothing And dr1("比较") <> Nothing And dr1("查询内容") <> Nothing Then

Tables(dr1("对应表")).Filter=""

Tables(dr1("对应表")).Filter= "条件"

End If

[此贴子已经被作者于2011-11-12 8:44:41编辑过]

10楼

blackzhu 发表于：2011/11/12 8:43:00

我知道5楼的是对的.

[此贴子已经被作者于2011-11-12 8:45:56编辑过]

共19 条记录, 每页显示 10 条, 页签: [1] [2]