主题：[求助]编程

请老师查看前面问题的实例

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:测试1_201602160915.zip

你直接手动复制？这样肯定不行的。换行的情况foxtable不支持。

 

你只能做个按钮，用代码来复制。

 

Dim dr As DataRow = DataTables("表B").AddNew
For Each dc As DataCol In DataTables("表B").DataCols
    dr(dc.Name) = Tables("表A").Current(dc.Name)
Next

老师好，数据库中有个序号列，修改了序号的值，想让数据按序号重新物理排序，不编程，可以实现吗？怎样操作。

排序直接写

 

Tables("表A").Sort = "序号"

 

如果是重新生成，具体什么逻辑做例子上来。

老师好！请教表A、表B有相同的结构，每月点击归档按钮，系统提示输入归档日期“****-**-01”，系统按用户输入的日期修改表A的归档日期列，如果表B归档日期列没有用户输入的日期，就复制表A的所有行到表B，并提示复制了多少行数据，如果表B归档日期列有用户输入的日期，就提示该日期已经有归档数据，不能重复归档。

参考：http://www.foxtable.com/help/topics/1453.htm

填充数据看看

 

http://www.foxtable.com/help/topics/1533.htm

 

多谢老师！我对前面的问题进行了优化，代码也写好了，功能也实现了，请老师帮我修改一个判断，如果表B归档日期列没有用户输入的日期，就复制表A的所有行到表B，如果表B归档日期列有用户输入的日期，就提示该日期已经有归档数据，不能重复归档。

'用户修改表A第一行的统计日期列,就用这个日期替换第九列,
'如果表B第九列包含有用户前面输入的日期,提示已经有这个日期的归档,不能重复归档
If e.Col.Name = "第九列" Then
    Dim Result As DialogResult
    result= MessageBox.Show("现在对表A归档吗?", "提示", MessageBoxButtons.YesNo)
    If Result = DialogResult.Yes Then
        MessageBox.Show("按第一行 第九列日期归档.","提示")
        Dim rq As Date=Tables("表A").Rows(0)("第九列")
        For Each r As Row In Tables("表A").Rows
            r("第九列") =rq
        Next
'        If 如果表B第九列包含表A第一行第九列的数据 Then (请老师修改判断)
            MessageBox.Show("已经有这个日期的归档,不能重复归档.","提示")
'        Else
            For Each dr1 As DataRow In DataTables("表A").Select("[第九列] <> #2/12/2066#")
                Dim dr2  As  DataRow =  DataTables("表B").AddNew()
                For Each dc  As  DataCol  In  DataTables("表A").DataCols
                    dr2(dc.Name) = dr1(dc.name)
                Next
            Next
'        End If
    Else
        MessageBox.Show("好好学习吧,你会认同这个看法的.","提示")
    End If
End If

代码写在表A的表事件afteredit了。