导入 word 公式 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 导入 word 公式

共有7164人关注过本帖树形打印复制链接主题：导入 word 公式

有点蓝

小大 21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/12/30 19:56:00 [只看该作者]

没看懂什么意思？这日期编号和身份证有什么关系？

大雪山

小大 22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：290 积分：2931 威望：0 精华：0 注册：2008/9/29 10:13:00

Post By：2017/12/30 22:08:00 [只看该作者]

主要用于排出用身份证每天报到人的序号，

有点蓝

小大 23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/12/30 22:26:00 [只看该作者]

编号的代码没有问题。往表格写数据的时候，填入日期值即可。

大雪山

小大 24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：290 积分：2931 威望：0 精华：0 注册：2008/9/29 10:13:00

Post By：2017/12/31 8:31:00 [只看该作者]

当表A中的孙悟空来刷卡后，编号中的数据能自动刷新到表B孙悟空对应的操作日期中的公式

此主题相关图片如下：`etv6txbhc81a)gp%a77_uh.png

下载信息 [文件大小：下载次数： ]
点击浏览该文件:identify.rar

[此贴子已经被作者于2017/12/31 8:32:18编辑过]

有点甜

小大 25楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/1/1 21:02:00 [只看该作者]

表A，DataColChanged事件，写代码

If e.DataCol.name = "身份证号码" OrElse e.DataCol.name = "编号" Then
    Dim fdr As DataRow = DataTables("表B").find("身份证号码 = '" & e.DataRow("身份证号码") & "'")
    If fdr IsNot Nothing Then
        fdr("操作日期") = e.DataRow("编号")
    End If
End If

大雪山

小大 26楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：290 积分：2931 威望：0 精华：0 注册：2008/9/29 10:13:00

Post By：2018/1/9 17:28:00 [只看该作者]

从字符串“”到类型“Double”的转换无效。

Dim i As Integer = 1
Dim dt1 As DataTable = DataTables("学生")
Dim pdr As DataRow
dt1.DataRows.Clear
DataTables("学生").DataRows.Clear
For Each dr As Row In Tables("T_TDD").Rows
    If i Mod 2 = 1 Then
        pdr = dt1.AddNew
        'pdr("sid") = i
        pdr("姓名") = dr("XM")
        'pdr("专业") = dr("专业")
        pdr("学号") = dr("xhdm")
        'pdr("xhdm") = 201671190003
        pdr("身份证") = dr("SFZH")
        pdr("序号") = dr("编号")
        pdr("单位") = dr("TXDZ")

        Dim dr1 As DataRow = DataTables("TD_MZDM").find("MZDM='" & dr("MZDM") & "'")
        If dr1 IsNot Nothing Then
            pdr("民族") = dr1("MZ")
        End If

    Else
        pdr("sid1") = i
        pdr("sname1") = dr("xm")
        pdr("xhdm1") = dr("证件号码")
        pdr("专业1") = dr("专业")


    End If
    i = i +0
Next

[此贴子已经被作者于2018/1/9 17:29:01编辑过]

有点甜

小大 27楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/1/9 17:37:00 [只看该作者]

回复26楼，你表【学生】哪些列是小数类型的列？类型和【T_TDD】的对应吗？

尽量加入msgbox定位出错位置 http://www.foxtable.com/webhelp/scr/1485.htm

大雪山

小大 28楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：290 积分：2931 威望：0 精华：0 注册：2008/9/29 10:13:00

Post By：2018/1/10 6:35:00 [只看该作者]

这个yxdm关联公式如何添加修改？

        Dim dr2 As DataRow = DataTables("T_JHK").find("ZYDM='" & dr("TDZYDM") & "'")
        If dr2 IsNot Nothing Then
            pdr("专业") = dr2("ZYMC")
            pdr("院校") = dr2("yxdm")
        End If

此主题相关图片如下：6@n`ztjbvagiejmw8$)idg.png