狐表实战.doc

增加多行并赋值代码   Post By：2011-10-19 14:34:00 [只看该作者] 
请问如何实现
点击按钮增加7行，其中一列依次赋值为星期一、星期二、星期三、星期四、星期五、星期六、星期天
简单写法：
 
Dim vals() As String = {"星期一","星期二","星期三","星期四","星期五","星期六","星期天"}
For i As Integer =0 To - 1 
   Tables("表A").AddNew()("第一列") = vals(i)
Next
 
标准写法：
 
Dim vals() As String = {"星期一","星期二","星期三","星期四","星期五","星期六","星期天"}
For i As Integer =0 To - 1 
   Dim r As Row = Tables("表A").AddNew()
   r("第一列") = vals(i)
Next
求助]如何实现双击单元格复制单元格内容   Post By：2012-2-16 21:10:00 [只看该作者]
如题，在窗口中的副本表中如何实现双击复制单元格内容？请高手解答！
、禁止编辑表
2、DoubleClick事件代码设置为：
 ()
如何批量插入图片   Post By：2012-2-20 17:48:00 [只看该作者]
图片不想一个一个的插入，既浪费时间又会出错。求教 批量插入
电脑程序时需要逻辑的，你得有个明确的规律： 什么样的文件名，对应插入什么样的行，也就如何根据一个文件名找出其对应的行？
有了这个规律，就可以很简单地完成你的要求。
在单元格中显示按钮的方法很简单，只需将该列的列表项目设为“...”或“|...”即可，差别是前者不能编辑单元格的内容，后者则可以。
在默认情况下，单击单元格按钮会出现一个编辑窗口，用于向单元格输入内容。
通过将e参数Cancel设为True，可以取消这个默认的动作，执行其他操作。
防止出现重要单元格出现空值现象
Tables("表名").AddNew()
Tables("表名").Focus()
Tables("表名").StartEditing()
Dim nms() As String = {"列1","列2","列3"}   '不允许为空的列名
dim r As Row = Tables("XX").Current
For each nm AS string  in nms
    if (nm) Then
         (nm & "必须输入内容")
         return
    end if
next
Dim Filter As String
For Each dc As Col In
    If OrElse OrElse Then
        Continue For
    End If
    If Filter > "" Then
        Filter  = Filter & " Or "
    End If
    Filter = Filter  & "[" & & "] Like '*" & cb3 & "*'"
Next
= Filter
哈哈,利用一个按钮筛选任何一个表的指定列以及通用查询ok啦.
求助]查询出错 Post By：2012-5-20 7:30:00 [只看该作者]
用文本框条件筛选时不能用*号,比如:1*1,否则报错
Dim txt As String = ("TextBox1").Text
txt = ("*","[*]").Replace("%","[%]")
Dim tbl As Table = Tables("S001")
If txt = "" Then
= ""
Else
txt = "'*" & txt & "*'"
= "第二列 Like " & txt & " Or 第三列 Like " & txt