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

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

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

有点蓝

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

加好友

发短信

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

Post By：2017/12/9 12:03:00 [只看该作者]

以下是引用大雪山在2017/12/9 11:59:00的发言：

pdr("民族") = dr("MZDM")

七楼的民族这一栏用数据字典显示的，该如何修改？

参考8楼的方式做

大雪山

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

加好友

发短信

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

Post By：2017/12/9 12:21:00 [只看该作者]

pdr("民族")=IIF(dr("MZDM")=1, "汉", "回")

如是下列代码如何修改主？

01 汉族
02 蒙古族
03 回族
04 藏族
05 维吾尔族
06 苗族

........

有点蓝

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

加好友

发短信

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

Post By：2017/12/9 14:15:00 [只看该作者]

select case dr("MZDM")

case "01"

pdr("民族") = "汉族"

case "02"

pdr("民族") = "蒙古族"

……

这种字典如果是通过数据库获取的，使用Find函数到数据库查

大雪山

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

加好友

发短信

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

Post By：2017/12/9 15:49:00 [只看该作者]

他就是用一个56民族数据库，能帮我改一下吗？

有点蓝

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

加好友

发短信

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

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

dim dr as datarow = datatables("民族数据").find("编号=‘" & dr("MZDM") & "’")

if dr isnot nothing then

pdr("民族") = dr("名称")

end if

大雪山

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

加好友

发短信

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

Post By：2017/12/10 18:32:00 [只看该作者]

15楼的公式老师能帮修改一下，谢谢

下载信息 [文件大小：下载次数： ]
点击浏览该文件:录取系统00.rar

[此贴子已经被作者于2017/12/10 22:07:08编辑过]

有点甜

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

加好友

发短信

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

Post By：2017/12/10 23:10:00 [只看该作者]

1、贴出你写的代码；

2、上传你的数据库；

大雪山

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

加好友

发短信

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

Post By：2017/12/11 5:37:00 [只看该作者]

问题下列关联民族代码，导入打印表中能实现显示文字内容，如图红字部分不会修改，请老师帮助，谢谢

图片点击可在新窗口打开查看此主题相关图片如下：ip4)hk~0pghqxg2gygq9x.png

下载信息 [文件大小：下载次数： ]
点击浏览该文件:录取系统11.rar

Dim i As Integer = 1
Dim dt1 As DataTable = DataTables("学生")
Dim pdr As DataRow
dt1.DataRows.Clear
For Each dr As Row In Tables("录取").Rows
    If i Mod 2 = 1 Then
        pdr = dt1.AddNew
        ' pdr("序号") = i
        pdr("姓名") = dr("XM")

        pdr("学号") = dr("KSH")

        pdr("序号") = dr("序号")

        pdr("性别")=IIF(dr("XBDM")=1, "男", "女")
        'pdr("民族") = dr("MZDM")
    Else


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



        End If
    End If
    i = i +0
Next

[此贴子已经被作者于2017/12/11 5:49:12编辑过]

有点甜

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

加好友

发短信

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

Post By：2017/12/11 9:41:00 [只看该作者]

Dim i As Integer = 1
Dim dt1 As DataTable = DataTables("学生")
Dim pdr As DataRow
dt1.DataRows.Clear
For Each dr As Row In Tables("录取").Rows
    If i Mod 2 = 1 Then
        pdr = dt1.AddNew
        pdr("姓名") = dr("XM")

        pdr("学号") = dr("KSH")

        pdr("序号") = dr("序号")

        pdr("性别")=IIF(dr("XBDM")=1, "男", "女")
        Dim dr1 As DataRow = DataTables("民族").find("民族代码='" & dr("MZDM") & "'")
        If dr1 IsNot Nothing Then
            pdr("民族") = dr1("名族列")
        End If
    End If
    i = i +0
Next

大雪山

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

加好友

发短信

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

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

用帮助文件中身份证阅读器的文件，想修改成将表B中的孙悟空来使用身份证刷卡时，能当日自动给关联编号的公式修改，麻烦老师了。

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

此主题相关图片如下：@%}_$3svy1rmov}$b62)3$5.png

[此贴子已经被作者于2017/12/30 8:17:16编辑过]

下一主题 >> << 上一主题

总数 51 上一页 1 2 3 4 5 6 下一页

主题：导入 word 公式